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PREFACE 



This publication is the reference manual for the HP FORTRAN programming language 
for the 2100 family of computers. Since Hewlett-Packard provides FORTRAN Com- 
pilers for all of its operating systems, this manual covers only the features 
of language, not operating procedures for the compiler. The user should refer 
to the appropriate system manual or operator's guide listed below: 

SOFTWARE OPERATING PROCEDURES SIO SUBSYSTEMS Module (5951-1390) 

DISC OPERATING SYSTEM (02116-91748) 

BASIC CONTROL SYSTEM (02116-9017) 

MOVING-HEAD DISC OPERATING SYSTEM (02116-91779) 

MAGNETIC TAPE SYSTEM (02116-91752) 

In addition, the Formatter and other relocatable subroutines used by FORTRAN 
programs are described in full in the RELOCATABLE SUBROUTINES manual (02116- 
91780) . 



in 



NEW AND CHANGED INFORMATION 



For this edition, all known errors in the HP FORTRAN manual have been corrected 
and some information has been eliminated to avoid repetition in several manuals. 
The operating procedures (previously found in Section IX) have been deleted and 
are now described in the SOFTWARE OPERATING PROCEDURES SIO SUBSYSTEMS Module 
(5951-1390) . The Basic Control System Relocating Loader listings have been 
deleted from Appendix D. 
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INTRODUCTION 



The FORTRAN compiler accepts as input, a source program written according to 
American Standard Basic FORTRAN specifications; it produces as output, a re- 
locatable binary object program which can be loaded and executed under con- 
trol of an HP operating system. 

In addition to the ASA Basic FORTRAN language, HP FORTRAN provides a number of 
features which expand the flexibility of the system. Included are: 

Free Field Input: Special characters included with ASCII input data 
direct its formatting; a FORMAT statement need not be specified in 
the source program. 

Specification of heading and editing information in the FORMAT state- 
ment through use of the "..." notation; permits alphanumeric data to 
be read or written without giving the character count. 

Array declaration within a COMMON statement. 

Redefinition of its arguments and common areas by a function subprogram. 

Interpretation of an END statement as a RETURN statement. 

Basic External Functions which perform masking (Boolean) operations. 

Two-branch IF statement. 

Octal constants. 

There are several versions of the HP FORTRAN Compiler; each is designed to run 
in a different operating environment: Software Input/Output System, Disc 
Operating System, etc. The operating system manuals contain descriptions of 
any features limited to special versions of the compiler. 
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SECTION I 
PROGRAM FORM 



A FORTRAN program is constructed of characters grouped into lines and statements. 



CHARACTER SET 



The program is written using the following characters: 



Alphabetic: 


A through Z 


Numeric: 


through 9 


Special : 






Space 


= 


Equals 


+ 


Plus 


- 


Minus 


* 


Asterisk 


/ 


Slash 


( 


Left Parenthesis 


) 


Right Parenthesis 


i 


Comma 


■ 


Decimal Point 


$ 


Dollar Sign 


ii 


Quotation mark 



Spaces may be used anywhere in the program to improve appearance; they are 
significant only within heading data of FORMAT statements and, in lieu of 
other information, in the first six positions of a line. 

In addition to the above set which is used to construct source language 
statements, certain characters have special significance when appearing 
with ASCII input data. 
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They are the following: 

space, Data item delimiters 

/ Record terminator 

+ - Sign of item 

.E+- Floating point number 

@ Octal integer 

" . . . " Comments 

<- Suppress CR-LF (output) 

Details on the input data character set are given in Section VII. 



LINES 



A line is a sequence of up to 72 characters. On paper tape, each line is 
terminated by a return, CR, followed by a line-feed, LF. This terminator may 
be in any position following the statement information or comment contained 
in the line. If an error is punched on a paper tape, a rubout before the 
return and linefeed causes the entire line containing the error to be ignored. 



STATEMENTS 

A statement may be written in an initial line and up to five continuation lines. 
The statement may occupy positions 7 through 72 of these lines. The initial 
line contains a zero or blank in position 6. A continuation line contains any 
character other than zero or space in position 6 and may not contain a C in 

position 1. 



STATEMENT LABLES 

A statement may be labeled so that it may be referred to in other statements. 
A label consists of one to four numeric digits placed in any of the first five 
positions of a line. The number is unsigned and in the range of 1 through 
9999. Imbedded spaces and leading zeros are ignored. If no label is used, 
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the first five positions of the statement line must be blank. The statement 
label or blank follows the CR LF terminator of the previous line. 

COMMENTS 

Lines containing comments may be included with the statement lines; the comments 
are printed along with the source program listing. A comment line requires a C 
in position 1 and may occupy positions 2 through 72. If more than one line is 
used, each line requires a C indicator. Each comment line is terminated with 
a CR and LF. 

CONTROL STATEMENT 

The first statement of a program is the control statement; it defines the out- 
put to be produced by the FORTRAN compiler. The following options are available: 

Relocatable binary — The output can be loaded by the relocating 

loader and run. 

Source Listing output — A listing of the source program is 

produced. 

Object Listing output — A list of the object program is produced. 

The control statement must be followed by the CR LF terminator. 

END LINE 

Each subprogram is terminated with an end line which consists of blanks in 
positions 1 through 6 and the letters E, N, and D located in any of the posit- 
ions 7 through 72. The special end line, END$, signifies the end of five or 
less programs being compiled at one time. The end line is terminated by CR LF 

CODING FORM 

The FORTRAN coding form is shown in Figure 1-1. Columns 73-80 may be used to 
indicate a sequence number for a line; they must not be punched on paper tape. 
All other columns of the form conform with line positions for paper tape. 
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Figure 1-1. Sample Coding Form (Actual Size 11 x 13-1/2) 
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SECTION II 
ELEMENTS OF HP FORTRAN 



HP FORTRAN processes two types of data -- real and integer quantities. They 
differ in mathematical significance, constant format, and symbolic represen- 
tation. 



DATA TYPE PROPERTIES 

Integer and real data quantities have different ranges of values. 

An integer quantity has an assumed fixed decimal point. It is represented 
by a 16-bit computer word with the most significant bit as the sign and the 
assumed decimal point on the right of the least significant bit. 

15 15 
An integer quantity has a range of -2 to 2 -1. 



15 14 



integer 



u 



SIGN 



A real quantity has a floating decimal point; it consists of a fractional part 
and an exponent part. It is represented by two 16-bit computer words; the ex- 
ponent and its sign are eight bits; the fraction and its sign are twenty-four 
bits. 



15 


14 







s 


fraction (most significant bits) 


1— SIGN OF FRACTION 
15 8 7 10 


fraction 


exponent 


s 



SIGN OF EXPONENT- 
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— 38 38 
It has a range in magnitude of approximately 10 to 10 and may assume 

positive, negative, or zero values. If the fraction is negative, the num- 
ber is in two's complement form. A zero value is stored as all zero bits. 
Precision is approximately seven decimal digits. 



CONSTANTS 

A constant is a value that is always defined during execution and may not be 
redefined. Three types of constants are used in HP FORTRAN: integer, octal 
(treated as integer) , and real. The type of constant is determined by its 
form and content. 



Integer 

An integer constant consists of a string of up to five decimal digits. 

15 15 
If the range -32768 to 32767 (-2 to 2 -1) is exceeded, a diagnostic is 

provided by the compiler. 
Examples : 

8364 5932 

1720 9 

1872 31254 

125 1 

3653 30000 



Octal 



Octal constants consist of up to six octal digits followed by the letter B. 
The form is : 

n i n 2 n 3 n 4 n 5 n 6 B 
n is or 1 

n - n are through 7 
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If the constant exceeds six digits, or if a non-octal digit appears, the con- 
stant is treated as zero and a compiler diagnostic is provided. 

Examples : 

7677B 7631B 

3270B 5B 

3520B 75026B 

175B 177776B 

567B 177777B 



Real 



Real constants may be expressed as an integer part, a decimal point, and a 

decimal fraction part. The constant may include an exponent, representing 

a power of ten, to be applied to the preceding quantity. The forms of real 
constants are: 

n.n n. .n n.nE+e n.E+e . nE+e 

n is the number and e is the exponent to the base ten. The plus sign may 
be omitted for a positive exponent. The range of e is through 38. When 
the exponent indicator E is followed by a + or - sign, then all digits be- 
tween the sign and the next operator or delimiter are assumed to be part of 
the exponent expression, e. 

If the range of the real constant is exceeded, the constant is treated as 
zero and a compiler diagnostic message occurs. 



Examples 



4.512 


4.5E2 


4. 


.45E+3 


.512 


4.5E-5 


4.0 


0.5 


4.E-10 


.5E+37 


1. 


10000.0 
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VARIABLES 

A variable is a quantity that may change during execution; it is identified 
by a symbolic name. Simple and subscripted variables are recognized. A 
simple variable represents a single quantity; a subscripted variable repre- 
sents a single quantity (element) within an array of quantities. Variables 
are identified by one to five alphanumeric characters; the first character 
must be alphabetic. 

The type of variable is determined by the first character of the name. The 
letters I, J, K, L, M, and N, indicate an integer (fixed point) variable; 
any other non-numeric character indicates a real (floating point) variable. 
Spaces imbedded in variable names are ignored. 



Simple Variable 

A simple variable defines the location in which values can be stored. The 
value specified by the name is always the current value stored in that lo- 
cation. 



Exampl es : 



Integer 



Real 



I 


ALPHA 


JAIME 


G13 


K9 


DOG 


MIL 


XP2 


NIT 


GAMMA 



S ubscripted Va riable 



A subscripted variable defines an element of an array; it consists of an 
alphanumeric identifier with one or two associated subscripts enclosed in 
parentheses. The identifier names the array; the subscripts point to the 
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particular element. If more than two subscripts appear, a compiler diagnostic 
message is given. 

Subscripts may be integer constants, variables, or expressions; they may 
have the form (exp , exp ) , where exp . is one of the following: 

c*v+k v-k 

c*v-k v 

c*v k 
v+k 

where c and k are integer constants and v is a simple integer variable. 

Examples : 

Integer Real 

I(J, K) A(J) 

LAD (3, 3) BACK(M+5, 9) 

MAJOR (24*K, 1+5) OPA45(4*I) 
NU (K+2) RADI (IDEG) 

NEXT (N*5) VOLTI (,J) 



ARRAYS 



An array is an ordered set of data of one or two dimensions; it occupies a 
block of successive memory locations. It is identified by a symbolic name 
which may be used to refer to the entire array. An array and its dimensions 
must be declared at the beginning of the program in a DIMENSION or COMMON 
statement. The type of an array is determined by the first letter of the 
array name. The letters I, J, K, L, M, and N, indicate an integer array; 
any other letter indicates a real array. 

Each element of an array may be referred to by the array name and the sub- 
script notation. Program execution errors may result if subscripts are 
larger than the dimensions initially declared for the array, however, no 
diagnostic messages are issued. 
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Array Structure 

Elements of arrays are stored by columns in ascending order of storage lo- 
cations. An array declared as SAM(3,3), would be structured as: 

Columns 



Rows 



SAM(1,1) 


SAM (1,2) 


SAM(1,3) 


SAM(2,1) 


SAM (2, 2) 


SAM (2, 3) 


SAM(3,1) 


SAM(3,2) 


SAM(3,3) 



and would be stored as : 



m 


SAM(1,1) 


m+1 


SAM(2,1) 


m+2 


SAM(3,1) 


m+3 


SAM (1,2) 


m+4 


SAM (2, 2) 


m+5 


SAM(3,2) 


m+6 


SAM (1,3) 


m+7 


SAM(2,3) 


m+8 


SAM(3,3) 



The location of an array element with respect to the first element is a 
function of the subscripts, the 
Addresses are computed modulo 2 



function of the subscripts, the first dimension, and the type of the array. 

15 



Given DIMENSION A(L,M) , the memory location of A(i,j) with respect to the 
first element, A, of the array, is given by the equation: 

I = A + [i - 1 + L(j - 1) ] *s 

The quantity in brackets is the expanded subscript expression. The element 
size, s, is the number of storage words required for each element of the 
array: for integer arrays, s = 1 ; for real arrays, s = 2. 
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Array Notation 

The following subscript notations are permitted for array elements: 

For a two-dimensional array, A(d , d ): 

A(I,J) implies A(I,J) 

A(I) implies A(I,1) 

A implies A (1,1) * 

For a single-dimension array, A(d) 

A(I) implies A(I) 

A implies A(l) 

The elements of a single-dimension array, A(d) , however, may not be referred 
to as A (I, J) . A diagnostic message is given by the compiler if this is 
attempted. 



EXPRESSIONS 

An expression is a constant, variable, function or a combination of these 
separated by operators and parentheses, written to comply with the rules for 
constructing the particular type of instruction. An arithmetic expression 
has numerical value; its type is determined by the type of the operands. 

Examples : 

A+B-C . 4+SIN (ALPHA) 

X*COS(Y) A/B+C-D*F 

RALPH-ALPH 4+2*IABS (LITE) 



*In an Input/Output list, the name of a dimensioned array implies the entire 
array rather than the first element. 
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STATEMENTS 

Statements are the basic functional units of the language. Executable state- 
ments specify actions; non-executable statements describe the characteristics 
and arrangement of data, editing information, statement functions, and classi- 
fication of program units. 

A statement may be given a numeric label of up to four digits (1 to 9999) ; 
a label allows other statements to refer to a statement. Each statement 
label used must be unique within the program. 
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SECTION III 

ARITHMETIC EXPRESSIONS 

AND ASSIGNMENT STATEMENTS 

ARITHMETIC EXPRESSIONS 

An arithmetic expression may be a constant, simple or subscripted variable, 
or a function. Arithmetic expressions may be combined by arithmetic 
operators to form complex expressions. 

Arithmetic operators are : 

+ Addition 

Subtraction 
* Multiplication 
/ Division 
** Exponentiation 



If a is an expression, (a) is an expression. If a and 3 are arithmetic 
expressions, then the following are expressions: 



a + 3 
a * 3 
a ** 3 



a - 3 
+ a 



a/ 3 



An arithmetic expression may not contain adjoining arithmetic operators, 

a op op 3. 



Expressions of the form a**3 and a**3 and a** (-3) are valid; a**3**Y is not 
valid. 

Integer overflow resulting from arithmetic operations is not detected at execu- 
tion time. 

Examples: 



P.OC.MM,, W — 




C Stmemen; 

C Lac*: ? 








Z 




! 




1 | ! 








i 










1 1 




L*5 


3 


3 + 2i** 


1 5-1 
























A 


BL 


E 


-3.14 


*HIOUS 


E **3 2 


.E-2 




















5* J A 


CK( K, 


L + 5)- 


LOUD 






i_ 




i ( — 


.4 
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Order of Eval uation 

In general, the hierachy of arithmetic operation is: 

** exponentiation class 1 

/ di 



livision ) 

multiplication ) 

\ 



class 2 
* multiple 

subtraction , 

class 3 

+ addition 



In an expression with no parentheses or within a pair of parentheses, evalu- 
ation basically proceeds from left to right, or in the above order if adjacent 
operators are in a different class. 

When writing an integer expression it is important to remember not only the 
left to right scanning process, but also that dividing an integer quantity 
by an integer quantity yields a truncated result; thus 11/3 = 3. The 
expression I*J/K may yield a different result than the expression J/K*I. 
For example, 4*3/2 = 6; but 3/2*4 = 4. 

Expressions enclosed in parentheses and function references are evaluated as 
they are encountered from left to right. 

Examples : 

In the examples below, s , s ,..., s indicate intermediate results during 
the evaluation of the expression; the symbol -> can be interpreted as 
"goes to". 

a) Evaluation of class 1 precedes class 3 
A+B**C-D 
B**C+s 
S 1+ A-S 2 
s -D-*s s is the evaluated expression 
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b) Evaluation of class 2 precedes class 3 



A*B*C/D+E*F- 


-G/H 


A*B->S 




S l C S 2 




s/D->s„ 
2' 3 




E*F->s„ 
4 




W S 5 




G/H->s 6 




"V S 7 





s +s ->s s is the evaluated expression 
7 5 8 8 

c) Evaluation of an expression including a function is performed. 

A+B**C+D+COS(E) 
B**C^S 

A+ V S 2 
s 2+ I»s 3 

COS(E)^s 

s +s ^s s r is the evaluated expression 

4 3 5 5 

d) Parentheses can control the order of evaluation 

A*B/C+D 
A*B->s 

S l /C+8 2 

s +D->s s is the evaluated expression 

A*B/(C+D) 

A*B+s 

C + D-S 2 

s /s ^s s is the evaluated expression 

1 / 2 3 3 
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e) If more than one pair of parentheses or if an exponential 
expression appears, evaluation is performed left to right. 

A+B**C-(D*E+F)+(G-H*P) 

B**C->s 

s 1 +A->s 2 

D*E->s 

s 3+ F->s 4 

"V S 5 

W S 6 
H*P+S 

"V S 8 
s 8+ G->s 9 

s„+s^->s,„ s,^ is the evaluated expression 

9 6 10 10 ^ 



Type of Expression 

With the exception of exponentiation and function arguments, all operands 
within an expression must be of the same type. An expression is either real 
or integer depending on the type of all of its constituent elements. 

If either an integer or real operand is exponentiated by an integer operand, 
the resultant element is of the same type as that of the operand being 
exponentiated. If both operands are real, the resultant element is real. 



Examples : 

J**I integer 
A**I real 
A**B real 

An integer exponentiated by a real operand is not valid. 
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ASSIGNMENT STATEMENTS 



An arithmetic assignment statement is of the form: 



v = e 



The variable, v , may be simple or subscripted; e is an expression. 
Execution of this statement causes the evaluation of the expression, e 
and the assignment of the value to the variable. 



Type of Statement 



The processing of the evaluated expression is performed according to the 
following table: 



Type of v 

Integer 

Integer 

Real 
Real 



Type of e 

Integer 

Real 

Integer 
Real 



Assignment rule 

Transmit e to v without change. 

Truncate and transfer as in- 
teger to v. 

Transform integer form of e 
to floating decimal and trans- 
fer to v. 

Transmit e to v without change. 



Examples : 



PROGRAMMER 




C 

C lebel ^ 








1 




A 


=Ib 


* 


*C + 


D+ 


CO 


S(E 


> !! 


1 ! 1 i 


Transmit without change 










S 


AIM 


( 


6) = 


R- 


S( 


6,12 


)*!( T/ 


ul)j 


Transmit without change 








N 


= W 


+ 


3. *( X 


**Y-Z 


) 




Truncate 








BAK 


E 


R=l'*J 


+ K*( L 


-Mi/Ni) 




Convert to real 








N=IZ 


ZY + LA 


KE/IMP 


D 




Transmit without change 
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MASKING OPERATIONS 

In HP FORTRAN, masking operations may be performed using the Basic External 
Functions IAND, IOR, and NOT. (See Section VI.) These functions are as 
follows : 

IAND Form the bit-by-bit logical product of two operands 

IOR Form the bit-by-bit logical sum of two operands 

NOT Complement the operand 

The operations are described by the following table: 



Value of 








Arguments 




Value of Function 




a i 


a 2 


IAND (a x , a 2 ) 


IOR (a ± , a 2 ) 


NOT (a ) 


1 


1 


1 


1 





1 








1 








1 





1 


1 














1 



Examples: 



PROGRAMMER 


DATE 


PROGRAM 


£ STATEMENT 
C Lab.1 ? 

5 6 7 10 15 20 25 30 35 40 45 50 










I 


aI 


= 


7l2 


5 





7lB 












1 














I 


1 ! 


1 




































I 


B 




= 


7 1 


55 


0B 






































































i 








i 










I 




i — - 





































IAND (IA, IB) is 70500B 
IOR (IA, IB) is 73557B 
NOT (IA) is 105270B 
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SECTION IV 
SPECIFICATIONS STATEMENTS 

The Specifications statements, which include DIMENSION, COMMON, and EQUIVA- 
LENCE, define characteristics and arrangement of the data to be processed. 
These statements are non-executable; they do not produce machine instructions 
in the object program. The statements must all appear before the first 
executable statement in the following order: DIMENSION, COMMON, and 
EQUIVALENCE. 



DIMENSION 



The DIMENSION statement reserves storage for one or more arrays. 

DIMENSION v. (i. ) , v„ (i ) , . . . , v (i ) 
112 2 n n 

An array declarator, v.(i,); defines the name of an array, v., and its associ- 

J 3 D 

ated dimensions, (i.). The declarator subscript, i, may be an integer con- 
stant or two integer constants separated by a comma. The magnitude of the 
values given for the subscripts indicates the maximum value that the sub- 
script may attain in any reference to the array. 



The number of computer words reserved for a given array is determined by the 
product of the subscripts and the type of the array name. For integer arrays, 
the number of words equals the number of elements in the array. For real 
arrays, two words are used for each element; the storage area is twice the 
product of the subscripts. 

15 
A diagnostic message is printed if an array size exceeds 2 -1 locations. 

Examples : 

DIMENSION SAM (5, 10), ROGER (10, 10), NILE (5, 20) 

Area reserved for SAM 5*10*2 = 100 words 

Area reserved for ROGER 10*10*2 = 200 words 

Area reserved for NILE 5*20*1 = 100 words 
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COMMON 



The COMMON statement reserves a block of storage that can be referenced by 
the main program and one or more subprograms. The areas of common inform- 
ation are specified by the statement form: 

COMMON a, , a . . . . , a 
12 n 

Each area element, a. , identifies a segment of the block for the subprogram 
in which the COMMON statement appears. The area elements may be simple 
variable identifiers, array names, or array declarators (dimensioned array 
names) . 

If dimensions for an array appear both in a COMMON statement and a DIMENSION 
statement, those in the DIMENSION statement will be used. 

Any number of COMMON statements may appear in a subprogram section (pre- 
ceding the first executable statement) . The order of the arrays in common 
storage is determined by the order of the COMMON statements and the order 
of the area elements within the statements . All elements are stored contig- 
uously in one block. 

At the beginning of program execution, the contents of the common block are 
undefined; the data may be stored in the block by input/output or assign- 
ment statements. 



Examples : 



COMMON 1(5) , A (6) , B(4) 

Area reserved for I = 5 words 
Area reserved for A = 12 words 
Area reserved for B = _8 words 

Common area 25 words 
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Origin 



Common 
Block 


I ( 


1) 


I ( 


2) 


I 


3) 


I ( 


4) 


I ( 


5) 


A 


1) 


A 


1) 


A 


2) 


A 


2) 


A 


3) 


A 


3) 


A 


4) 


A 


4) 


A 


5) 


A 


5) 


A 


6) 


A 


6) 


B 


[1) 


B 


1) 


B 


(2) 


B 


(2) 


B 


13) 


B 


'3) 


B 


(4) 


B 


(4) 



Correspondence of Common Blocks 

Each subprogram that uses the common block must include a COMMON statement. 
Each subprogram may assign different variable and array names, and different 
array dimensions, however, if corresponding quantities are to agree, the 
types should be the same for corresponding positions in the block. 
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Examples : 



MAIN PROG COMMON 1(5), A(6), B(4) 



SUBPROG1 COMMON J(3), K(2), C(5), D(5) 



MAIN PROG 
reference 


Common 
Block 


SUBPROG1 
reference 


I (1) 


integer 1 


J 


1) 


I (2) 


integer 2 


J 


2) 


I (3) 


integer 3 


J 


3) 


I (4) 


integer 4 


K 


1) 


I (5) 


integer 5 


K 


2) 


A (1) 


real 


1 


C 


1) 


A (1) 


real 


1 


C 


1) 


A (2) 


real 


2 


C 


2) 


A (2) 


real 


2 


c 


2) 


A (3) 


real 


3 


c 


3) 


A (3) 


real 


3 


c 


3) 


A (4) 


real 


4 


c 


4) 


A (4) 


real 


4 


c 


4) 


A (5) 


real 


5 


c 


5) 


A (5) 


real 


5 


c 


5) 


A (6) 


real 


6 


D 


1) 


A (6) 


real 


6 


D 


1) 


B (1) 


real 


7 


D 


2) 


B (1) 


real 


7 


D 


2) 


B (2) 


real 


8 


D 


3) 


B (2) 


real 


8 


D 


3) 


B (3) 


real 


9 


D 


4) 


B (3) 


real 


9 


D 


4) 


B (4) 


real 


10 


D 


5) 


B (4) 


real 


10 


D 


5) 
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If portions of a common block are not referred to by a particular subprogram, 
dummy variables may be used to provide correspondence in reserved areas. 

Examples : 

MAIN PROG COMMON 1(5), A(6), B(4) 
SUBPR0G2 COMMON J(17), B(4) 



MAIN 


PROG 


Common 


SUBPR0G2 


reference 


Block 


reference 


I ( 


1) 


integer 1 


J ( 


1) 


I 


2) 


integer 2 


J 


2) 


I 


3) 


integer 3 


J 


3) 


I 


4) 


integer 4 


J 


4) 


I 


5) 


integer 5 


J 


5) 


A 


1) 


real 


1 


J 


6) 


A 


1) 


real 


1 


J 


7) 


A 


2) 


real 


2 


J 


8) 


A 


2) 


real 


2 


J 


9) 


A 


3) 


real 


3 


J 


10) 


A 


3) 


real 


3 


J 


11) 


A 


4) 


real 


4 


J 


12) 


A 


4) 


real 


4 


J 


13) 


A 


5) 


real 


5 


J 


'14) 


A 


5) 


real 


5 


J 


15) 


A 


6) 


real 


6 


J 


16) 


A 


6) 


real 


6 


J 


17) 


B 


1) 


real 


7 


B 


1) 


B 


1) 


real 


7 


B 


1) 


B 


2) 


real 


8 


B 


12) 


B 


2) 


real 


8 


B 


(2) 


B 


'3) 


real 


9 


B 


(3) 


B 


'3) 


real 


9 


B 


13) 


B 


4) 


real 


10 


B 


(4) 


B 


4) 


real 


10 


B 


(4) 



J (17) is a dummy 
array. It is not 
referenced in 
SUBPROG 2 but pro- 
vides proper corre- 
spondence in reserved 
areas so that 
SUBPROG 2 can refer 
to array B. 
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The length of the common block may differ in different subprograms, however, 
the subprogram (or main program) with the longest common block must be the 
first to be loaded at execution time. 



EQUIVALENCE 

The EQUIVALENCE statement permits sharing of storage by two or more entities. 
The statement has the form: 

EQUIVALENCE (k ) , (k ),..., (k ) 

in which each k is a list of the form: 

s n , a , . . . , a 

12 m 

Each a is either a variable name or a subscripted variable; the subscript of 
which contains only constants. The number of subscripts must correspond to 
the number of subscripts for the related array declarator. 

All names in the list may be used to represent the same location. If an 
equivalence is established between elements of two or more arrays, there is 
a corresponding equivalence between other elements of the arrays; the arrays 
share some storage locations. The lengths may be different or equal. 



Examples : 



DIMENSION A (5) , B(4) 
EQUIVALENCE (A (4), B (2)) 



Array 1 


Array 2 


Quantity 


Name 


Name 


Element 


A (1) 






real 1 
real 1 


A (2) 






real 2 
real 2 


A (3) 


B 


(1) 


real 3 
real 3 


A (4) 


B 


(2) 


real 4 
real 4 


A (5) 


B 


(3) 


real 5 
real 5 




B 


(4) 


real 6 
real 6 
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The EQUIVALENCE statement establishes that the names A (4) and B(2) identify 
the fourth real quantity. The statements also establish a similar corre- 
spondence between A (3) and B(l), and A (5) and B(3). 

An integer array/or variable may be made equivalent to a real array or vari- 
able; equivalence may be established between different types. The variables 
may be with or without subscripts. 

The effect of an EQUIVALENCE statement depends on whether or not the variables 
are assigned to the common block. When two variables or array elements share 
storage, the symbolic names of the variables or arrays may not both appear in 
COMMON statements in the same subprogram. The assignment of storage to vari- 
ables and arrays declared in a COMMON statement is determined on the basis of 
their type and the array declarator. Entities so declared are always contig- 
uous according to the order in the COMMON statement. The EQUIVALENCE state- 
ment must not alter the origin of the common block, but arrays may be defined 
so that the length of the common block is increased. 

Examples : 

a) Effect of EQUIVALENCE, variables not in common block: 



««»»» J2"- 


C-KAM 




C S'A^EMENl 
C Lobe ^ 










DllM 


E 


NSI ON 


III (|4 


>i. ! J( 


2), K 


( 5) 












, 1_ 




EiQU 


1 


VAUEN 


CE ( I 


(3) , 


K( 2 ) ) 













storage is assigned as follows: 



Arrays 


Quantities 


KD 




integer 1 


1(2) 


K(l) 


integer 2 


1(3) 


K(2) 


integer 3 


1(4) 


K(3) 


integer 4 




K(4) 


integer 5 




K(5) 


integer 6 


Jd) 




integer 7 


J(2) 




integer 8 
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b) Effect of EQUIVALENCE, some variables in common block: 



PROGRAMMER ;.iATI PROGRAM 


C 

G 

C Lowi V 


SiATtMENT 










DiliMlE 


NSI 


ON 


K|( 5 ) 


MM 


MM 




' ' 








1 1 










COMMON 


K 


4)i J 


(2)! 














i 










EQ'UJI 


VAL 


ENCE (I 


(bl);, 


K( 2) ) 




— , — , — , — ^_ 










* . 



storage is assigned as follows: 



Arrays 
1(1) 

1(2) K(l) 

1(3) K(2) 

1(4) K(3) 

J(l) K(4) 

J(2) K(5) 



Quantities 
integer 1 
integer 2 
integer 3 
integer 4 
integer 5 
integer 6 



Common block 



c) Effect of EQUIVALENCE on the length of the common block: 



PROGRAMMER DATt PROGRAM 


£ S1ATEMf.Nl 
C Lobei V 

5 t : K 15 20 !i .(C 35 40 45 5fl 






! 




DIM 


E 


NSI 


ON 


K 


(7 


) 




i 




MM 


! 1 | ! 


! 








! 














C 


OM 


M 


ON 


I 


(4 ! ), 


J 


( 


2) 




















j 










E 


QU 


I 


VAL 


EN 


CE (J 


(')!.; 


Ki(k!)') 


! 













storage is assigned as follows: 



Arrays 
KD 

1(2) K(l) 
K3) K(2) 
K4) K(3) 
J(l) K(4) 
J(2) K(5) 
K(6) 
K(7) 



Quantities 
integer 1 
integer 2 
integer 3 
integer 4 
integer 5 
integer 6 
integer 7 
integer 8 



common block 
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The value of the subscripts for an array being made equivalent to another 
array should not be such that the origin of the common block is changed 
(for example, EQUIVALENCE (1(3), K(4)). 



origin 



Arrays 

K(l) 

1(1) K(2) 

1(2) K(3) 

1(3) K(4) 

1(4) K(5) 

J(l) K(6) 

J(2) K(7) 



origin 
changed 



Quantities 

integer 1 

integer 2 
integer 3 
integer 4 
integer 5 
integer 6 
integer 7 



If contradictory EQUIVALENCE relationships are specified, a diagnostic mes- 
sage is printed. 

Example : 



a) 



b) 



««.*«. 


-- 


'«» 




■ L "* . : 


"'"7 








EQU 1 


VALEN 


C£ (A 


(2) , 


B( T 2) )] 










^- 










• 




















• 









— 













• 














EOUI 


VALEN 


CE (A 


(5) , 


B(3) ) 



























»«-.<«« 




.., 


,.«v 




c 


"7" 




I 




EQU 


1 


VALJE1M 


CE (A 


(2!) , 


BH2) ) 


















• 















-- 


' — *■ - 










• 






























i 














EQU 1 


VALEN 


CE ( B 


( 3) , 


C( 3) ) 


a- 














• 












— -f-f- 





















































EQUI 


VALEN 


CE (A 


( 5) , 


C, ( 2 ) ) 
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SECTION V 
CONTROL STATEMENTS 



Program execution normally proceeds from statement to statement as they appear 
in the program. Control statements can be used to alter this sequence or 
cause a number of iterations of a program section. Control may be transferred 
to an executable statement only; a transfer to a non-executable statement will 
result in a program error which is usually recognized during compilation as a 
transfer to an undefined label.* With the DO statement, a predetermined 
sequence of instructions can be repeated a number of times with the stepping 
of a simple integer variable after each iteration. 

Statements are labelled by unsigned numbers, 1 through 9999, which can be 
referred to from other sections of the program. A label up to four digits 
long precedes the FORTRAN statement and is separated from it by at least one 
blank or a zero. Imbedded blanks and leading zeros in the label are ignored: 
1, 01, 1, 0001 are identical. 



GO TO STATEMENTS 

GO TO statements provide transfer of control. 

GO TO k 

This statement, an unconditional GO TO, causes the transfer of control to 
the statement labelled k. 

GO TO (k ,k ,. .. ,k ) ,i 
12 n 

This statement, a computed GO TO, acts as a many-branched transfer. The k's 

are statement labels and i is a simple integer variable. Execution of this 

statement causes the statement identified by the label k. to be executed 

next, where j is the value of i at the time of execution, and 1 < j < n. 

If i < 1, a transfer to k, occurs; if i > n, a transfer to k occurs. 

1 n 



*A transfer to a FORMAT statement is not detectable during compilation; if 
such an error occurs, no diagnostic message is produced. 
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Examples : 



PROGRAMMER DATE PROGRAM 


g STATEMENT 

C Label N 

1 5 6 7 10 15 20 25 30 35 40 45 51! 






10 




GO 


T 


1 [5 


00 










I 












1 i 


! I 












! 
















I 


SW 


C 


H != 


2 










I 












,_ r 




























35 




A 


| = 




X*Y 














1 ! ' 
i 






























































































! ! 










, 




























4j0 




G 


o| It 


01 |(|5i, 


l|0 


, .1 


5 


120!) 


I 


swc 


Hi 


! 






J 


















500 




h J 


swc 


H =: I 


SWCH 




+ ! 


1 




1 


















j 






540 




G 


0> J 


(25 


,3 





T 


3 


5! 


40) 


, jjIsNvch! 




! i i i 


! 






l K 



At statement 40, control transfers to statement 10, which is an unconditional 
transfer to statement 500. At 540 control transfers to statement 35. 



IF STATEMENTS 

The arithmetic IF statement provides conditional transfer of control 
IF (e)k 1 ,k 2 ,k 3 

The e is an arithmetic expression and the k's are statement labels. The 
arithmetic IF is a three-way branch. Execution of this statement causes 
evaluation of the expression and transfer of control depending on the 
following conditions : 

e < , go to k 
e = 0, go to k 
e > 0, go to k 



Examples : 



PROGRAMMER DATE 


PROGRAM 


£> STATEMENT 
C Let*! N 

5 6 7 10 15 20 25 30 3: 40 45 50 










i 


F 




( 


A) 5 




i;0 


i 




i 


5 
















1 


II! 


i ! 1 

1 ' 














| 










— i— 






i 


F 


( 


X:*l* 


Y* 


CO 


s 


( 


z 


) 


+ 


W 


> 


5 


i 


3 


5 


.1' 


5! 
! i 


— ! — ' — — 














i 




1 
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The logical IF statement provides conditional transfer of control to either 
of two statements: 

IF (e)k ,k 

The e is an arithmetic expression that may yield a negative or non-negative 
(positive or zero) value. Execution of this statement causes evaluation of 
the expression and transfer of control under the following conditions: 

e < 0, go to k 

e > , go to k 

Examples : 



PROGRAMME 




_ "f ~ l : " 
-.1-11 




h 


..,«, 


- - 


C ^ar. t . ? 


r 








IF ( 


ISSW( 


N) )5, 


10 




















I IF !( 


A+Bi)2 


0, 2 5 






















i!f ! ( 


LANI ) 


30, 4 





.. 





— . — . 


— 


— t— 


- — i — 






DO STATEMENTS 



A DO statement makes it possible to repeat a group of statements. 
DO n i = m , m , m 

or 



DO n i = m ,m 



The n is the label of an executable statement which ends the group of state- 
ments. The statement, called the terminal statement, must physically follow 
the DO statement in the source program. It may not be a GO TO of any form, 
IF, RETURN, STOP, PAUSE, or DO statement. 

The i is the control variable; it may be a simple integer variable. 
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The m' s are indexing parameters: m is the initial parameter; m , the termi- 
nal parameter; and m , the incrementation parameter. They may be unsigned 
integer constants or simple integer variables. At time of execution, they 
all must be greater than zero. If m does not appear (second form) , the 
incrementation value is assumed to be 1. 



A DO statement defines a loop, as shown in the flowchart of Figure 5-1. 
Associated with each DO statement is a range that is defined to be those 
executable statements following the DO, to and including the terminal state- 
ment associated with the DO. At time of execution, the following steps 
occur: 

1. The control variable is assigned the value of the initial 
parameter. 

2. The range of the DO is executed. 

3. The terminal statement is executed and the control variable is 
increased by the value of the incrementation parameter. 

4. The control variable is compared with the terminal parameter. 
If less than or equal to the terminal parameter, the sequence 
is repeated starting at step 2. If the control variable 
exceeds the terminal parameter, the DO loop is satisfied and 
control transfers to the statement following n. The control 
variable becomes undefined. 

Should m exceed m on the initial entry to the loop, the range of the DO 
is executed and control passes to the statement after n. If a transfer 
out of the DO loop occurs before the DO is satisfied, the current value 
of the control variable is preserved. The control variable, initial 
parameters, terminal parameter, and incrementation parameters may not be 
redefined during the execution of the range of the DO loop. 
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ASSIGN 
m. TO i 



EXECUTE STATEMENTS 

IN LOOP INCLUDING 

STATEMENT n 



ADD m 3 TO i 

AND STORE 
IN i 




Figure 5-1. Example of a DO Loop 
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DO Nests 

When the range of a DO loop contains another DO loop, the latter is said 

to be nested. DO loops may be nested 10 deep. The last statement of a 

nested DO loop must be the same as the last statement of the outer loop or 

occur before it. If d, ,d „,...,d are DO statements, which appear in the 

12 n 

order indicated by the subscripts; and if n n , n„,...,n are the respective 

12 m 

terminal statements, then n must appear before or be the same as n n , 

m m-1 

n . must appear before or be the same as n_ , and n must appear before 
m- 1 ' 2 2" 

or be the same as n . 



Examples : 



m 



m 



PROGRAMME fi 


C 


1 1 e 7 10 15 20 2> W 




|5 




h D 







1 


&0\ 


I 


= 1,1 


n 


2 lj 


I 1 ! 




















1 
















































1 1 


■ 






7 




|D 


o 


90 J 


= 1 , 


l 


0.21 




















































• 








1 






9 




D 





80 K 


= i :, 


l 


0,2 










H 


















• 




: 
































8^3 




C 


OJNIT 


INIU E 




















• 


























































; 90 




cioIn 


T 


IJNUE 




































. 


















• 




















1 0i0 




CO 


N 


T 


inIu'e 


— ^-^~ 








— — 
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m 



m 



-n r n 2 











c .,, 






5 




DO 1 


00 ;i 


= ii. .2 



















07T 




























= I.I 






r 8 




DO 1 


p<z> J 






















































10 




DO 


90 K 


= 1.2 


0,2 
















_ 




































90 




COM 


INUE 


















^T H 
































r ■ 








100 




CONT 


inuF -1 




, 







d 


1 










2 







m 





C ;.o W 




1 5 




DO 1 


00 I 


= 1,3 


0,5 


' ! 1 


















































10 




DO T 


00 J 


= 2,Q 




















































20 




po 1 


00 K 


= 5,5 


&l5 






















































100 




CONT 


INUE 









n,-n -n 

If one or more nested loops have the same terminal statement, when the 
inner DO is satisfied, the control variable for the next outer loop is 
incremented and tested against its associated terminal parameter. Con- 
trol transfers to the statement following the terminal statement only 
when all related loops are satisfied. 

DO loops may be nested in common with other loops as long as their ranges 
do not overlap. 
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Examples : 



PROGRAMMER 


C 

o 

C LoDe , N 
1 5 6 7 10 15 ?€ 25 .10 




5 




D 





1 


00 




l| 


_i 


1 




1 


5 






































































. 1 
i 




























































i 








||0 




D 







5|0 


J 


" I 2 


i 


2 


0, 


2 












• 
























. 










! 




; 










• : 


















50 




COJNT 


INUE 














































j 


















































i 




















6 







D 


o 




^O 


!k 


= 


'li 


1 


4 !' 


2 






























i 






: ! i i 










• 
































• 


























70 




C 





N 


T 


IN[UE 


| 




























j i 












: 












i 




















• 






















100 




c 





N 


T 


IN 


UiE 




— i— i 








k-|— 





'1 



> Invalid, ranges overlap 



In a DO nest, a transfer may be made from an inner loop into an outer 
loop, and transfer is permissible outside of the loop. It is illegal, 
however, for a GO TO or IF to initiate a transfer of control from out- 
side of the range of a DO into its range. 

When nested DO loops have the same terminal statement, a transfer to that 
terminal statement causes a transfer to the innermost logs of the nest. 
When this transfer occurs, the current value of the control variable 
for the innermost loop is incremented and that loop is executed until 
its range is satisfied, etc. 
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VALID 
TRANSFERS 




"1 

INVALID 
TRANSFERS 



CONTINUE 

This statement acts as no-operation instruction. 

CONTINUE 

The CONTINUE statement is most frequently used as the last statement of a 
DO loop to provide a loop termination when a GO TO or IF would normally be 
the last statement of the loop. If used elsewhere in the source program, 
it acts as a do-nothing instruction and control passes to the next sequential 
program statement. 



PAUSE 



This statement provides a temporary program halt. 

PAUSE n 

or 
PAUSE 

n may be up to four octal digits (without a B suffix) in the range to 7777. 
This statement halts the execution of the program and types PAUSE on the 
standard output unit. The value of n, if given is in the A-Register. Pro- 
gram execution resumes at the next statement. 
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STOP 



The STOP statement terminates the execution of the program. 

STOP n 

or 
STOP 

n may be up to four octal digits (without a B suffix) in the range to 
7777. This statement halts the execution of the program and types STOP on 
the standard output unit. The value of n, if given, is in the A-Register. 



END 



The END statement indicates the physical end of a program or subprogram. 
It has the form: 

END name 

The END statement is required for every program or subprogram. The name of 
the program can be included, but it is ignored by the compiler. The END 
statement is executable in the sense that it will effect return from a sub- 
program in the absence of a RETURN statement. An END statement may be 
labelled and may serve as a junction point. 



END$ 



The END$ statement indicates the physical end of five or less programs or 
subprograms that are to be compiled at one time. If there are four or less 
programs, the statement is printed on the source program listing. If there 
are exactly five, the statement is not printed. If more than five programs 
are on the same tape, the END$ may be omitted after the fifth program; the 
compiler stops accepting input after the fifth is processed. 
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SECTION VI 
MAIN PROGRAM, FUNCTIONS, AND SUBROUTINES 

A FORTRAN program consists of a main program with or without subprograms. Sub- 
programs, which are either functions or subroutines, are sets of statements 
that may be written and compiled separately from the main program. 

The main program calls or references subprograms; and subprograms may call or 
reference other subprograms as long as the calls are non-recursive. That is, 
if program A calls program B, subprogram B may not call program A. Further- 
more, a program or subprogram may not call itself. A calling program is a 
main program or subprogram that refers to another subprogram. 

In addition to multi-statement function subprograms, a function may be defined 
by a single statement in the program (statement function) or it may be defined 
as basic external function. A statement function definition may appear in a 
main program or subprogram body and is available only to the main program or 
subprogram containing it. A statement function may contain references to 
function subprograms, basic external functions, or other previously defined 
statement functions in the same subprogram. Basic external function ref- 
erences may appear in the main program, subprogram, and statement functions. 



Main programs, subprograms, statement functions, and basic external functions 
communicate by means of arguments (parameters) . The arguments appearing in a 
subroutine call or function reference are actual arguments. The corresponding 
entities appearing with the subprogram, statement function, or basic external 
function definition are the dummy arguments. 
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ARGUMENT CHARACTERS ITICS 

Actual and dummy arguments must agree in order, type, and number. If they 
do not agree in type, errors may result in the program execution, since no 
conversion takes place and no diagnostic messages are produced. 

Within subprograms, dummy arguments may be array names or simple variables; 
for statement functions, they may be variables only. Dummy arguments are 
local to the subprogram or statement function containing them and, there- 
fore, may be the same as names appearing elsewhere in the program. A max- 
imum of 63 dummy arguments may be used in a function or subroutine. 

No element of a dummy argument list may appear in a COMMON or EQUIVALENCE 
statement within the subprogram. If it does, a compiler diagnostic results. 
When a dummy argument represents an array, it should be declared in a 
DIMENSION statement within the subprogram. If it is not declared, only the 
first element of the array will be available to the subprogram and the array 
name must appear in the subprogram without subscripts. 

Actual arguments appearing in subroutine calls and function references may 
be any of the following: 

A constant 

A variable name 

An array element name 

An array name 

Any other arithmetic expression 



MAIN PROGRAM 

The first statement of a main program may be the following: 

PROGRAM name 

The name is an alphanumeric identifier of up to five characters. If the 
PROGRAM statement is omitted, the compiler assigns the name "FTN." 
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SUBROUTINE SUBPROGRAM 

An external subroutine is a computational procedure which may return none, 
one, or more than one value through its arguments or through common storage. 
No value or type is associated with the name of a subroutine. 

The first statement of a subroutine subprogram gives its name and, if relevant, 
its dummy arguments . 



SUBROUTINE s (a, , a„,..., a ) 

12 n 

or 
SUBROUTINE s 



The symbolic name, s, is an alphanumeric identifier of up to five characters 
by which the subroutine is called. If the subroutine is unnamed the compiler 
will assign the name of "." (period) . The a's are the dummy arguments of 
the subroutine. 

The name of the subroutine must not appear in any other statement within the 
subprogram. 

The subroutine may define or redefine one or more of its arguments and areas 
in common so as to effectively return results. It may contain any statements 
except FUNCTION, another SUBROUTINE statement, or any statement that directly 
or indirectly references the subroutine being defined. It must have at least 
one RETURN or END statement which returns control to the calling program. 
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Examples : 
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P,W and H are the dummy para- 
meters. Actual values supplied 
by a calling program are to be 
substituted for P and W. The 
variable name supplied for H 
would contain the result on re- 
turn to the calling program. 
MUL multiplies the array sup- 
plied for MAT by the single 
value supplied for K to produce 
values to be stored in array 
PROD. 



SUBROUTINE CALL 

The executable statement in the calling program for referring to a subroutine 
is: 

CALL s (a , a ,. . . , a ) 
12 n 

or 
CALL s 

The symbolic name, s, identifies the subroutine being called; the a's define 
the actual arguments. The name may not appear in any specification state- 
ments in the calling program. 

If an actual argument corresponds to a dummy argument that is defined or re- 
defined in the called subprogram, the actual argument must be a variable 
name, an array element name, or an array name. 

The CALL statement transfers control to the subroutine. Execution of the 
subroutine results in an association of actual arguments with all appearances 
of dummy arguments in executable statement and function definition state- 
ments. If the actual argument is an expression, the association is by value 
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rather than by name. Following these associations, the statements of the sub- 
program are executed. When a RETURN or END statement is encountered, control 
is returned to the next executable statement following the CALL in the calling 
program. If the CALL statement is the last statement in a DO loop, looping 
continues until satisfied. 

Examples : 
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These calls provide actual 
arguments for the subroutines 
defined in the previous ex- 
ample. In subroutine JIV, 
15. is substituted for P; 
12., for W; and ABLE, for H. 
For subroutine MUL, the data 
is passed via COMMON. The 
value supplied for the dummy 
argument K is element (5,3) 
of matrix I of the calling 
program. 



FUNCTION SUBPROGRAM 

A function subprogram is a computational procedure which returns a single 
value associated with the function name. The type of the function is de- 
termined by the name; an integer quantity is returned if the name begins 
with I, J, K, L, M, or N, otherwise it will be a real quantity. 

The first statement of a function subprogram must have the following form: 

FUNCTION f (a n , a . . . . , a ) 
12 n 

The symbolic name, f, is an alphanumeric identifier of up to five characters 

by which the function is referenced. If the function is unnamed the compiler 

will assign the name of "." (period). The a's are the dummy arguments of the 

function. 
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The name of the function cannot appear in any non-executable statement within 
the subprogram. It must be used in the subprogram, however, at least once 
as any of the following: 

The left-hand identifier of an assignment statement 

An element of an input list 

An actual parameter of a subprogram reference 

The value of name at the time of execution of a RETURN or END statement in 
the subprogram is called the value of the function. 

The function subprogram may define or redefine one or more of its arguments 
and areas in common so as to effectively return results in addition to the 
value of the function. If the subprogram redefines variables contained in 
the same expression as the function reference, the evaluation sequence of the 
expression must be taken into account. Variables in the portion of the ex- 
pression that is evaluated before the function reference is encountered and the 
values of variable subscripts are not affected by the execution of the function 
subprogram. Variables that appear following the function reference are mod- 
ified according to the subprogram processing. 



Examples : 
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The function IDIV calculates 
the value of I divided by J. 
On return to the calling pro- 
gram the result provided is 
the value of IDIV. 



The function IREAD reads a 
value from the unit IUNT 
(specified as an actual 
parameter in the calling 
program. ) IREAD has this 
value on return to the call- 
ing program. 
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SCALL is both the function 
name and an actual parameter 
of a subroutine call. The 
value of SCALL is provided 
by SUBF and returned to the 
calling program. 
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d) " The function defines 

C Lobe: y 

the value of GAMMA 
as well as finding 
the value of ZETA. 



FUNCTION REFERENCE 

A function subprogram is referenced by using the name and arguments in an 
arithmetic expression: 

f (a , a , . . . , a ) 

12 n 

The type of function depends on the first letter of the name of the function 
referenced; the a's are the actual arguments. The reference may appear any 
place in an expression as an operand. The evaluated function will have a 
single value associated with the function name. When a function reference is 
encountered in an expression, control is transferred to the function indicated. 
Execution of the function results in an association of actual arguments with 
all appearances of dummy arguments in executable statements and function de- 
finition statements. If the actual argument is an expression, this associa- 
tion is by value rather than by name. Following these associations, the 
statements of the subprogram are executed. When a RETURN or END statement in 
the function subprogram is encountered, control returns to the statement con- 
taining the function reference. During execution the function also may define 
or redefine one or more of its arguments and areas in common. 
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Example: 



b) 



PROGRAMMER DATE 


C 

O 

C Lo b.l ? 

1 5 6 2 10 15 20 25 30 






1 




s 


AN 


T 


iF 


K 


** 


ID 


IV 


( 


1 





7 


5 


) 


+■ 


I 


C 


ON 


T^ 






























































1 










































1 
j 


; 


































































s 


A 


N 


D 


U=TAiD 


+;I 


R 


E 


A 


D ( 1 


&B 


) 
























1 ! 










































i 


























i i 














1 1 ! 














! ! 




























! 






















| 










































1 












1 

































































a) The values of 10 and 5 
are provided for I and 
J: The resulting value 
of IDIV would be 2. 

b) The function IREAD is 
called with 10B as the 
unit number. The value 
of IREAD would be the 
value of the item read 
from the device with 
unit reference number 10, 



c) 



d) 
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The program, 



The actual parameters 
SCALL are 10., 9., and 
8. The value of SCALL 
would depend on the 
value supplied by the 
subroutine SUBF. 
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would result in the following calculation: 

RSLT = 5.0 + 7.5 + ZETA 

where ZETA would be determined as : 

A = .2**2 - .3**3 = .04 - .027 = .013 
GAMMA = .013*5.2 = .0676 (GAMMB is not altered) 
ZETA = .0676**2 = .00456976 
RSLT = 5.0 + 7.5 + .00456976 
= 12.50456976 
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But, the program, 
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would result in the following calculations for ZETA and GAMMB : 

A = .2**2 - .3**3 = .04 - .027 = .013 
GAMMA = .013*5.2 = .0676 = GAMMB 
ZETA = .0676**2 = .00456976 
RSLT = .00456976 + 7.5 + .0676 
= 7.57216976 

When referring to a function which redefines an argument which appears as a 
variable elsewhere in the same expression, the order of evaluation (i.e., the 
order in which the expression is stated) is significant. 



STATEMENT FUNCTION 

A statement function is defined internally to the program or subprogram in 
which it is referenced and must precede the first executable statement. The 
definition is a single statement similar in form to an arithmetic assignment 
statement. 

f ( V a 2 V = S 

The name of the statement function, f, is an alphanumeric identifier; a single 
value is associated with the name. The dummy arguments, a's, must be simple 
variables. One to ten arguments may be used. The expression, e, may be an 
arithmetic expression and may contain references to basic external functions, 
previously defined statement functions, or function subprograms. The dummy 
arguments must appear in the expression. Other variables appearing in the 
expression have the same values as they have outside the statement function. 



The statement function name must not appear in any specification statements 
in the program or subprogram containing it. 
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Statement functions must precede the first executable statement of the pro- 
gram or subprogram, but they must follow all specification statements. 

A statement function reference has the form: 

r (a. / a„ , . . . , a ) 

12 n 

f is the function name and the a's are the actual arguments. A function 
reference with its appropriate actual arguments may be used to define the 
value of an actual argument in a subroutine call or function subprogram 
reference. 

Example : 
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Statement function definition. 



Subroutine call using state- 
ment function reference . 



Execution of a statement function reference results in an association of 
actual argument values with the corresponding dummy arguments in the ex- 
pression of the function definition, and evaluation of the expression. 
Following this, the resultant value is made available to the expression 
that contained the function reference and control is returned to that state- 
ment. 

Example : 

Statement function : 
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Function reference: 
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BASIC EXTERNAL FUNCTIONS 

Certain basic functions are defined in FORTRAN. When one of these appears 
as an operand in an expression, the Compiler generates the appropriate 
calling sequence within the object program. 

The types of these functions and their arguments are defined. The compiler 
recognizes the basic function and associates the type with the results. The 
actual arguments must correspond to the type required for the function; if 
not, a diagnostic message is issued. The functions available are shown in 
Table 6-1. 
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Table 6-1 
FORTRAN Functions and Arguments 



Function 
Name 


Definition 


Symbolic 
Name 


No. of 
Arguments 


Type 
Argument 


of 
Function 


Absolute Value 


1 a l 


ABS 


1 


Real 


Real 






IABS 


1 


Integer 


Integer 


Float 


Conversion 
from in- 
teger to 
real 


FLOAT 


1 


Integer 


Real 


Fix 


Conversion 
from real 
to integer 


IFIX 


1 


Real 


Integer 


Transfer sign 


Sign of a 

times a, 
a 1 


SIGN 


2 


Real 


Real 




ISIGN 


2 


Integer 


Integer 


Exponential 


e 


EXP 


1 


Real 


Real 


Natural 


log (a) 


ALOG 


1 


Real 


Real 


Logarithm 


e 










Trigonometric 


sine (a) t 


SIN 


1 


Real 


Real 


Sine 












Trigonometric 


cos (a)t 


COS 


1 


Real 


Real 


Cosine 












Trigonometric 


tan (a)t 


TAN 


1 


Real 


Real 


Tangent 












Hyperbolic 


tanh (a) 


TANH 


1 


Real 


Real 


Tangent 


(a) 1/2 










Square Root 


SQRT 


1 


Real 


Real 


Arctangent 


arctan (a) 


ATAN 


1 


Real 


Real 


And (Boolean) 


a i A a 2 
a i V a 2 


IAND 


2 


Integer 


Integer 


Or (Boolean) 


I OR 


2 


Integer 


Integer 


Not (Boolean) 


NOT 


1 


Integer 


Integer 


Sense Switch 


Sense Switch 
Register 
switch (n) 


ISSW 


1 


Integer 


Integer 



"a is in radians 
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Examples : 
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RETURN AND END STATEMENTS 

A subprogram normally contains a RETURN statement that indicates the end of 
logic flow within the subprogram and returns control to the calling program. 
It must always contain an END statement. 

In function subprograms, control returns to the statement containing the 
function reference. In subroutine subprograms, control returns to the 
next executable statement following the CALL. A RETURN statement in the main 
program is interpreted as a STOP statement. 

The END statement marks the physical end of a program, subroutine subpro- 
gram, or function subprogram. If the RETURN statement is omitted, END 
causes a return to the calling program. The END$ is required in additon 
to END statements when five or less subprograms are being compiled at one 
time. 
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SECTION VII 
INPUT/OUTPUT LISTS AND FORMAT CONTROL 



Data transmission between internal storage and external equipment requires an 
input/output statement and, for ASCII character strings, either a FORMAT state- 
ment or format control symbols with the input data. The input/output statement 
specifies the input/output process, such as READ or WRITE; the unit of equip- 
ment on which the process is performed; and the list of data items to be 
moved. The FORMAT statements or control symbols provide conversion and 
editing information between the internal representation and the external 
character strings. If the data is in the form of strings of binary values, 
format control is unnecessary. 



INPUT/OUTPUT LISTS 

The input list specifies the names of the variables and array elements to 
which values are assigned on input. The output list specifies the references 
to the variables, array elements, and constants whose values are transmitted. 
The input and output lists are of the same form. The list elements consist 
of variable names, array elements, and array names separated by commas. The 
order in which the elements appear in the list is the sequence of transmission. 
If FORMAT statements are used, the order of the list elements must correspond 
to the order of the format descriptions for the data items. In array elements 
buffer length is limited to a maximum output of 60 computer words. 

Supscripts in an input/output list may be of the form (exp , exp ) , where 
exp . is one of the following: 

c*v+k v^k 

c*v-k v 

c*v k 
v+k 

where c and k are integer constants and v is a simple integer variable pre- 
viously defined or defined within an implied DO loop. 
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DO-IMPLIED LISTS 

A DO-implied list consists of one or more list elements and indexing para- 
meters. The general form is 

(...(list, i = m , m , m )...) 

list Any series of arrays, array elements, or variables separated 
by commas 

i Control variable 

m's Index parameters in the form of unsigned integer constants 
or predefined integer variables 

Data defined by the list elements is transmitted starting at the value of m in 
increments of m until m is exceeded. If m is omitted it is assumed to be one. 

An implied DO loop may be used to transmit a simple variable or a sequence of 
variables more than one time. 

Two-dimensional arrays may appear in the list with values specified for the 
range of the subscripts in an implied DO loop. The general form for an array is; 



where, 



((a(d ,d ),i = m , m , m ) , ± 2 = n^, n^, n^) 



a An array name 

d , d Subscripts of the array in one of 
the preceding forms 

i , i Control variables representing 

either of the variables subscripts 
d and d 

Index parameters in the form of unsigned 

integer constants or predefined integer variables. 

If m or n is omitted, it is construed as 1. 
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The input/output list may contain nested implied DO loops. During execution, 
the control variables are assigned the values of the initial parameters (i 
= m , i = n ) . The first control variable defined in the list is incremented 
first. When the first control variable reaches the maximum value, it is re- 
set; the next control variable to the right is incremented and the process 
is repeated until the last control variable has been incremented. 

If the name of a dimensioned array appears in a list without subscripts, the 
entire array is transmitted. 



Examples : 



a) The DO-implied list 

((A(I,J), 1=1, 20, 2), J=l, 50,5) 
replaces the following: 
DO x J=l, 50, 5 
DO x 1=1, 20, 2 
transmit A (I, J) 
x CONTINUE 

b) Other implied DO loops might be: 

((ABLE(5*KID-3, 100*LID) , KID=1, 100), LID=1, 10) 
((A(I,J), 1=1, 5),J=1, 5) Transmit elements by column 
((A(I,J), J=l, 5), 1=1, 5) Transmit elements by row. 

c) Nested implied DO loops : 

(( ((A(I,J) , B(K,L) ,K=1,10) ,L=1,15) ,1=1,20) ,J=1,25) 
( ( (A(I,J) , B(K) ,K=1,10) ,1=20,100,10) ,K=9,90,10) 

d) Simple variable transmission: 
(A,K=1, 10) Transmits 10 values of A. 
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e) Dimensioned array transmission: 
DIMENSION A (50, 20) 



... A ... list element 

is equivalent to: 

DO x I = 1,20 

DO x J = 1,50 

transmit A (J, I) 

CONTINUE 



FORMAT STATEMENT 

ASCII input/output statements may refer to a FORMAT statement which contains 
the specifications relating to the internal-external structure of the corres- 
ponding input/output list elements. 

FORMAT (spec ,..., r(spec ,...), spec ,...) 

The spec's are format specifications and r is an optional repetition factor 
which must be an unsigned integer constant. FORMAT specifications may be 
nexted to a depth of one level. The FORMAT statement is non-executable and 
may appear anywhere in the program. 



FORMAT Statement Conversion Specifications 

The data elements in the input/output lists may be converted from external to 
internal and from internal to external representation according to FORMAT con- 
version specifications. (If the type of a variable in the input/output 
list does not correspond to the type specified in the FORMAT statement, the 
Formatter insures that the proper conversion from one type to the other will 
take place.) FORMAT statements may also contain editing codes. 
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Conversion Specifications 

rEw.d Real number with exponent 

rFw.d Real number without exponent 

rlw Decimal integer 

r@w ) 

> Octal integer 
rKw ) 

rAw Alphanumeric character 



Editing Specification 

nX Blank field descriptor 

nHh, h . . .h I tt ., . n n , . . 

12 n I Heading and labeling descriptors 

r"h h . . .h " j Specification should not be on more than one line. 

If continuation is necessary, specification should be 

broken up in two specifications, 
r/ Begin new record 

Both w and n are nonzero integer constants representing the width of the field 
in the external character string; n may be omitted if the width is one. d is 
an integer constant representing the number of digits in the fractional part of 
the string. r, the repeat count, is an optional nonzero integer constant 
indicating the number of times to repeat the succeeding basic field descriptor. 
Each h is one character. 
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Ew.d Output 

The E specification converts numbers in storage to character form for output. 
The field occupies w positions in the output record; the number appears in float- 
ing point form right justified in the field as: 



A.X . . .X, E+eet 
— 1 d — 



X ...X are the most significant digits of the value of the data to be output, 
ee are the digits in the exponent. Field w must be wide enough to contain 
significant digits, signs, decimal point, E, and exponent. Generally, w should 
be greater than or equal to d + 4. 

If the field is not long enough to contain the output value, an attempt is made 
to adjust the value of d (i.e., truncating part or all of the fraction) so that 
a number is written in the field. If the remaining value is still to large for 
the field, dollar signs ($) are inserted in the entire field. If the field is 
longer than the output value, the quantity is right- justified with spaces to the 
left. 



Examples : 



MOGRAMMi? 




c 








wkr 


T 


E(4,5 


)A| ! 


A contains +12.34 or -12.34 




5 




FOR 


M 


AT(!EI 


0.3) 


Result is aa. 123E+02 or a-. 123E+02 
























U/RIT 


E( 4,5 


)A 


r A contains +12.34 or -12.34 




5 




FORM 


AT(E 1 


2.3) 


Result is aaaa. 123E+02 or 














aaa -. 123E+02 








WRIT 


E(4,5 


)A 


A contains +12. 34 or -12. 34 






5 




FORM 


AT( E7 


.3) 


Result is . 12E+02 or -. 1E+02 




















, 




W.RIT 


E(4,5 


)A 


^ A contains +12. 34 




! 5 




FORM 


AT( E5 


. 1 ) 


k Result is $$$$$ 



tThe caret symbol, 



, indicates the presence of a space. 
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Ew.d Input 

The E spcification converts the number in the input field (specified by w) to a 
real number and stores it in the appropriate storage locations. 

The input field may consist of integer, fraction, and exponent subfields: 

integer fraction 

I , 1 , ^~ ' exponent 



+ . . .n.n. . . n+ee 

E 



decimal point 

The integer subfield begins with a + or - sign, or a digit and may contain a 
string of digits terminated by a decimal point, an E , +, -, or the end of the 
input field. 

The fraction subfield begins with a decimal point and may contain a string of 
digits terminated by an E, +, -, or the end of the input field. 

The exponent field may begin with a sign or an E and contains a string of digits. 
When it begins with E, the + is optional between E and the string. The value 
of the string of digits should not exceed 38. The number may appear in any 
positions within the field; spaces in the field are ignored. 

Examples : 

+1.2345E2 

123.456+9 

-0.1234-6 

.12345E-3 

1234 

+12345 

+12345E6 
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When no decimal point is present in the input quantity, d acts as a negative 
power of ten scaling factor. The internal representation of the input quantity 
will be: 



/• . , j-. , ,> , „ - d ., (exponent subfield) 
(integer subfield) xlO xlO ^ 



Example : 



PSOO ; '''v,v.L ■ 



FORMAT ( El 



2.8 



Input quantity = A aa1234+5aa 



Conversion performed: 1234xl0"^xl0^ 
Result: 1.234 



If a d value in the specification conflicts with the a decimal point appearing 
in an input field, the actual decimal point takes precedence. 



Example : 



**OG*AMM( » 








C .30,, 


i • ;& i; k 


H 




| F|0|RIV|A!T(|El||2!.j8)! 


1 ] Input quantity 


= aaaaaI. 234+5 



Quantity stored: 



1.234x105 



The field width specified by w should always be the same as the width of the 
input field. When it is not, incorrect data may be read, converted and stored. 
The value of w should include positions for signs, the decimal point, the letter 
E, as well as the digits of the subfields: 

Example: 



MljGHAMMiS DATE PROGRAM 


^ STATEMENT 
5*' 2C 25 3t 3 s 40 45 <0 










RjEjA 


D 


(5, 


10 


)A 




B, 


r ! 1 
H i i 


1 M 1 




■ill 


1 


: 


! 


| | 








10 




fo;r 


M 


AT( 


E7 


7~2YEJ5 


3 E9 
•|° I'll 


• 2 I )! 


1 1 ' ' 










_ 1— 


j 


-+-- 
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Assuming input data in contiguous fields: 

-12.3E1+1234123.46E-3 

j+- 7 _*_ 5 * g hJ 

The fields read would be: 

-12.3E1 
+ 1234 
123.46E-3 

and converted as : 
-123. 
1.234 
.12346 

However, if specifications were: 



I 



for |m|/ 



1AT( E7 



. 2 ,E4 



. 3 ,E7 



.2) 



-F : -F 



The fields read would be: 

-12.3E1 

+123 

4123.46 

The effects of possible FORMAT specification errors such as the above may not be 
detected by the system. 
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Examples 



FORMAT 
Speci f ication 

E9.2 
E9.4 
E4.2 



Input 
Field 

+1.2345E2 
-0.1234-6 
1234 



Converted 
Value 

123.45 

-.0000001234 

12.34 



Fw.d Output 

The F specification converts real numbers in storage to character form for out- 
put. The field occupies w positions and will appear as a decimal number, right 
justified in the field. 

The x's are the most significant digits. The number of decimal places to the 
right of the decimal point is specified by d. If d is zero, no digits appear 
to the right of the decimal point. The field must be wide enough to contain the 
significant digits, sign, and decimal point. If the number is positive, the + 
sign is suppressed. If the field is not long enough to contain the output value, 
an attempt is made to adjust the value of d (i.e., truncating part or all of the 
fraction) so that a number is written in the field. If the remaining value is 
still too large for the field, dollar signs ($) are inserted in the entire field. 
If the field is longer than the output value, the number is right-justified with 
spaces occupying the excess positions on the left. 



Examples: 



P.OC,.™,, 




c 










W 


R I 


T 


E(4 


,5 


)!A _^ 


" A contains +12. 34 or -12. 34 






5 




F 


0|R 


M 


AT( 


Fl 


.3 ) 


Result: aaaa12.340 or aaa-12.340 






















WRIT 


E(4, 5 


)A 


A contains +12.34 or -12.34 




i ! 5 




FORM 


AT( Fl 


2.3) 


[ Result: aaaaaa12. 340 orAAAAA -12. 340 
























WRIT 


E( 4,5 


)A | 


v A contains +12.34 






5 




FORM 


AT ( F 4| 


.3) I 


Result: 12.3 






: 


















Vy(RIT 


E(4,5 


)A 


A contains +12345. 12 




5 




FORM 


AT( F4 


.3;) 


. Result: $$$$ 
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Fw.d Input 

The F specification input is identical to the E specification input. Although 
the fields are generally assumed to contain only a sign, integer, decimal point, 
and fraction; they may also contain an exponent subfield. All restrictions for 
Ew.d input apply. 



Iw 



The Iw specification converts internal values to output character strings, or 
input character strings to internal numbers. The output external field occupies 
w record positions and appears right justified (spaces on left) as: 

^V X d 

During input conversion, if a value is less than -32768^, the value is converted 
to a positive 32767. 

The x's represent the decimal digits (maximum of 5) of the integer. When the 
integer is positive on output, the sign is suppressed. If an output field is 
too short, dollar signs ($) will be placed in the output record. 

The Iw specification, when used for input, is identical to an Fw.O specification. 



Examples 



















I'" 1 


'< ?C 15 « J5 








[WRIT 


E { 6 , 1 


0)!l!.;j 


XX, 






10 




FORM 


AT( 15 


,15,1 


4,16) 







I contains -1234 
J contains +12345 
K contains +12345 
L contains +12345 



Result: -123412345$$$$. 12345 



-5jk I +.5-+ I ^-^^ -«-°-»- 
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noG'AMMti 



ElAD 



FO 



(15. 



R|MAiT!( 



r5 



m 



, ; I5 



i<U 



5u 



Input contains : 
-.12312,^3,1.23 



I contains -0123 
J contains 12003 
K contains 0102 
L contains 3 



Aw 



This specification (not available in the 4K version of FORTRAN) causes alpha- 
numeric data on an external medium to be translated to or from ASCII form in 
memory. The associated list element must be of type integer. 

On input, if the field, as indicated by w, is greater than 2, the first w-2 
characters are ignored; only the last two characters are read. When w equals 
2, the two characters are read. If w equals 1, one character is read and stored 
in the right half of a computer word; zero is entered in the left half. 

On output, if the field is greater than 2, two characters are written with right 
justification in the field; the leading positions are filled with spaces. If 
w equals 2, the two characters are written. If w equals 1, the character in 
the right half of the computer word is written. 



W>2 



FIELD 



A+ 



i ignored on input 



* spaces on ou 



MEMORY 



pui \ 
tpuW 



tn 



♦ I 



W=2 



W=1 



V 


i * 



i ignored on output \ 
\ zero on inout / 



■ zero on input 
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Example: 



Input data: AZZ213-ABCXABC137 - ZZ9 (CR) l^F 

DIMENSION ID (5) 
READ (5, 10) 12, II, ID 
10 FORMAT (A10, Al , 5A2) 

Result: 12 BC 
II 0X 

ID AB 
CI 
37 

-Z 
Z9 



r @ w, rKw 

Octal integer values are converted under either the @ or the K specification. 
The field is w octal digits in length; the corresponding list element must 
be of type integer. (Not available in the 4K version of FORTRAN.) 

On input, if w is greater than or equal to 6, up to six octal digits are stored; 
non-octal digits appearing within the field are ignored. If the value of the 
octal digits within the field is greater than 177777, the results are unpredict- 
able. If w is less than 6, or if less than six octal digits are encountered in 
the field, the number is right justified in the computer word with zero fill on 
the left. 

On output, if the field is greater than 6, six octal digits are written with right 
justification in the field; the leading positions are filled with spaces. If w 
equals 6, the six octal digits are written. If w is less than 6, the w least 
significant octal digits are written. 

Example: 

Input data: 123456-1234562342342342, 396-05 CR LF 

DIMENSION ID(2), IE(2) 
READ (5,10) IB, IC, ID, IE 
10 FORMAT (@6, @7, 2@5, 2@4) 



7-13 



Result: 



IB 123456 
IC 123456 
ID 023423 

(242342 
IE 000036 

000005 



nX 



The X specification may be used to include n blanks in an output record or to 

skip n characters on input to permit spacing of input/output quantities. In 

the specifications list, the comma following X is optional. „x is interpreted 
as IX. OX is not permitted. 



Examples: 



mi 



10 FORMAT ( 



E(6 



E8 



0) a :.b 



3 ,5X 



OL 



r£]6j2 



.'5X.I 



4) 



A contains +123. 4 
B contains -12. 34 
I contains -123 



Result: ..1234E2, 



■12.34, 



•123 



Input: 

WEIGHT^ „1CL„PRICE^$1.98„„T0TAL„„ $19. 80 



"°="«™" |,M, j-.OC.M 


' c / !<- >'.- i', r- ir j. 4 n v . 






READ 


(5, 


10 


) I ,|A|, 


B| j 


j 1 ! ~ 










! i 




m 




FjORfV! 


AT( 


8X 


,12,1 


0XF4. 


2, I0X 


F5 .2) 










4- 



Result: I contains 10 

A contains 1.98 
B contains 19.80 
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nHh-. h 2 - . .h 



The H specification provides for the transfer of any combination of 8-bit ASCII 
characters, including blanks. n is an unsigned integer specifying the number 
of characters to the right of the H that are to be transmitted. The comma 
following the H specification is optional. „H is interpreted as 1H. OH is not 
permitted. An H-specif ication should not span more than one line. If continua- 
tion is necessary the H specification should be broken off in 2H specifications, 
one on each line. 

On output, the ASCII data in the FORMAT statement is written on the unit in the 
form of comments, titles, and headings. 



Example : 



PdOGRAMMtR | LA,t | PROGRAM 





C Luot: 7 










writ 


T 


E(!6 


, 1 


) i 


i 


1 ! 




i ; i 








— i_j — 








10 




FtaiR 


M 


AT( 


20 


H THI 


S I Si 


AN EX 


AMPLE 


) 






_i_ 







































Result: THIS IS AN EXAMPLE 









WRIT 


E(6, I 


0)1 , 


A 


,B 






1 






' | 




10 




FORM 


AT( 8H 


wei'g 


H 


T ; 12 


, I0H 


PRIC 


E $, 


F4.2I, 


ll 


-W 






C 


10H 


TOTA 


l ;$i. 


F 5 . 2 ) 


i i ■ i 













I contains 10 
A contains 1.98 
B contains 19.80 



Result: WEIGHT 10 PRICE $1.98 TOTAL $19.80 



On input, the data is transmitted from the unit to the FORMAT statement. A 
subsequent output statement transfers the new data to the output record. 
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Examples : 



«»•»» »«> | >«*■«" 


C SWiMNl 
C Lol* V 

i 5 t ? 't is ;'- ;s it is i'. is so 










R 


EA 


D 


('5, 


10 


Mil 


1 


! [ 


Ml 


ill 


II 
ii ■ 1 


















10 




F 


OR 


M 


AT ( 3 1 


HlA^AiA 


A A AiaIa 


A [A | A AjA 


A AAA A 


AAA A:A 


A A 


a!a A 


AiA 


)| 












Wrci 

— 1 — ! — ' 


T 


E(6,l 


0); 






: 


i , , ! 


, 


[— 




— 1— F~ 


._4..__ 



Input: H INPUT ALLOWS VARIABLE HEADERS 
Result: H INPUT ALLOWS VARIABLE HEADERS 



r"h 1 h 2 . 



V 



This specification also provides for the transfer of any combination of ASCII 
characters (except the quotation marks.). The number of characters transmitted 
is the number of positions between the two quotation marks; field length is not 
specified. If r, an optional repeat count, is present, the character string with- 
in the quotation marks is repeated that number of times. Commas preceding the 
initial quotation mark and following the closing quotation are optional. As with 
H, the specification must be contained on one line. 

Examples : 



,. ......... ,-, ..CC...M 


': ■-■ , '■' 




i i 




WRIT 


E( 6, 1 


0)' 


















10 




FORM 


AT("T 


HI S A 


LSO I 


S AN 


EXAMP 


LE") 




• 


i i 


-f 



Result: THIS ALSO IS AN EXAMPLE 



r- 






WRIT 


E( 6, 1 


0) 










— . — ) — , — , 








10 




FORM 


AT( 3" 


ABC" ) 










! 




-j— i 



Result: ABCABCABC 



On input, the number of characters within the quotation marks is skipped on the 
input field. 
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New Record 

The slash, /, terminates the current record and signals the beginning of a new 

record of formatted data. It may occur anywhere in the specifications list and 

need not be separated from the other list elements by commas. Several records 

may be skipped by indicating consecutive slashes or by preceding the slash 

with a repetion factor; r-1 records are skipped for r/. On output the slash 

is used to skip lines, cards, or tape records; on input, it specifies that control 

passes to the next record or card. 



Examples: 





..i! - 








— 










WRI T 


E( 6, 1 


0) 


















10 




FORM 


ATI 22 


X, 6HB 


UDGET 

otaI", 


///6H 

8X ) 


WEIGH 


T,6X, 
I'M! 


- — t 


— i 









C 


5HPR 


ICE.9 


X, 5HT 


— 


- 








r 

















.__LL ..- 










WRIT 


E( 6 , 1 


0) 


,T/6H 
8 X ) ~ 


weigh 




10 




FORM 


iAT( 22 


X ,6HB 


UDGET 
OTAL, 






_ 


C 


5HPR 


ICE ,9 


X, 5HT 





Result: 

line 1 
line 2 
line 3 
line 4 



WEIGHT, 



.PRICE, 



.BUDGET 



.TOTAL, 



Repeat Specifications 

Repetition of the field descriptors (except nH) is accomplished by preceding the 
descriptor with a repeat count, r. If the input/output list warrants, the con- 
version is interpreted repetitively up to the specified number of times. 



Repetition of a group of field descriptors, including nH is accomplished by en- 
closing the group in parentheses and preceding the left parenthesis with a group 
in parentheses and preceding the left parenthesis with a group repeat count. 
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If no group repeat count is specified, a value of one is assumed. Grouped field 
descriptors may be nested to a depth of one level. 

Examples : 



PROGRAMMER r -> A ' ! - PROGRAM 


C TAItVtNl 




1 


WRIJT 


E(4 


, I0JTI,|J 


,Kl 




! 1 


; | ; 


i ; i 








i i 






10 


F|ORWAT( 15 


,15,15): 










i 


1 i 




—i — *— 


i , 



can be written as 





wku 


E(4,l 


0)1, J 


,K 








— \l~ 




u_H — 


~H 


i 10 


FORM 


AT (31 


5) 1 














! I 










i , | 
















1 


WRIT 


E(4, 1 


0)A,B 


,1 ,.C, 


Dj.jJ 












10 


FORM 


AT (E8 


. 3 , 5X 


,F6 .2 


,j5X,I 


4.E8 . 


3,!5X, 








( 

— \— 


:F6.2 


.5X.I 


4) 




1 ■ , , — 

T 


-i- 




■ 


-,__ 1 — 





can be written as 

















1 




; i . | 








Writ 


E(4, 1 


0) A , E 


5,1 


,c, 


D,J 












10 

1 ' ' 


FORM 


AT(2( 


E8.3 


5X 


,F6 


.2,5X 


, 14) ) 


i ,— 


i<i 


i i . . — 





A nested repetition specification would be: 



FO RMAT (E8 .3 ,5b(,5 (1F6. 2 ,5X ,14) ) 



The group F6.2, 5X, 14 would be written five times, and the entire group, once. 



Unlimited Groups 

FORMAT specifications may be repeated without use of the repetition factor. If 
list elements remain after all specifications in a FORMAT statement are processed, 
the rightmost group of repeated (enclosed in parentheses) specifications is used. 
If there is no repeated group, processing resumes with the first specification 
in the statement. On output, each time the rightmost parenthesis in the state- 
ment, or in the unlimited group, is reached, the current record is terminated. 
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FREE FIELD INPUT 

By following certain conventions in the preparation of the input data, a 2116A 
FORTRAN program may be written without use of FORMAT statements. Special symbols 
included with the ASCII input data items direct the formatting: 



space or, 

/ 
+ - 

. E + - 

@ 

n ii 



Data item delimiters 
Record terminator 
Sign of item 
Floating point number 
Octal integer 
Comments 



All other ASCII non-numeric characters are treated as spaces (and delimiters) . 
Free field input may be used for numeric data only. Free field input is indicated 
in the FORTRAN READ statement by using an asterisk rather than a number of a 
FORMAT statement. 



Data Item Delimiters 

Any contiguous string of numeric and special formatting characters occurring 
between two commas, a comma and a space, or two spaces, is a data item whose 
value corresponds to a list element. A string of consecutive spaces is 
equivalent to one space. Two consecutive commas indicate that no data item 
is supplied for the corresponding list element; the current value of the list 
element is unchanged. An initial comma causes the first list element to be 
skipped. 



Example: 



l) 



„«,,,«». 










c .„„. _ ^ 


R!EAD( 5, 


*) I 


,'Jl 


x 


L 



2) 



riea ]d|T5" /*)|i,Ij j ,;k[ 7l 
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Input data: 1720, 1966 
1980 1492 



Input data: 1266, ,1794,2000 



Result: I contains 1720 
J contains 1966 
K contains 1980 
L contains 1492 



Result: I contains 1266 
J contains 1966 
K contains 1794 
L contains 2000 



Floating Point Input 

The symbols used to indicate a floating point data item are the same as those 
used in representing floating point data for FORMAT statement directed input: 



integer fraction 



I II — II - 1 

+n. . .n.n. . . n+ee 
n \ E 



"exponent 



\ 



decimal point 



If the decimal point is not present, it is assumed to follow the last digit. 



Examples : 



RjE!AD('5:,|*;)A.B ,CL D,|E: 



Input Data: 3.14, 314E-2, 3140-3, .0314+2, . 314E1 
All are equivalent to 3.14 



Octal Input 



An octal input item has the following format: 



te, . . .x_ 

1 a 
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The symbol @ defines an octal integer. The x's are octal digits each in the 
range of through 7. List elements corresponding to the octal data items 
must be type integer. 



Record Terminator 

A slash within a record causes the next record to be read immediately; the 
remainder of the current record is skipped. 



Example : 



PRC. '■■il.M.V.I * 



RE A'D | ( 5 , 1^) | I ll,jJ;j|,'K!KrXl L ! JMMl 



Input data: 987, 654, 321, 123/DESCENDING (CR) (LF) 
456 



Result: II contains 987 
JJ contains 654 
KK contains 321 
LL contains 123 
MM contains 456 



List Terminator 



If a line terminates (with a [CRJ (LF) ) and a slash has not been encountered, 
the input operation terminates even though all list elements may not have been 
processed. The current values of remaining elements are unchanged. 



Examples 



R£AD(5, j ») A,lBl,d,!J |, X, V,? ] 
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Input Data : 

A=7.987 B=5E2 C=4.6859E-3 (CRJ (LF) 
J=3456 CR LF 



Result: A contains 7.987 
B contains 5E2 
C contains 4.6859E-3 

J, X, Y, Z are unchanged. 



Comments 

All characters appearing between a pair of quotation marks in the same line are 
considered to be comments and are ignored. 



Examples: 



"6.7321" is a comment and ignored 
6.7321 is a real number 
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SECTION VIII 
INPUT/OUTPUT STATEMENTS 

Input/output statements transfer information between memory and an external 
unit. The logical unit is specified as an integer variable that is defined else- 
where in the program or an integer constant. 

Each statement may include a list of names of variables, arrays, and array 
elements. The named elements are assigned values on input and have their 
values transferred on output. 

Records may be formatted or unformatted. A formatted record consists of a 
string of ASCII characters. The transfer of such a record requires the 
specification of a FORMAT statement or free field input data. An unformat- 
ted record consists of a string of binary values. 



LOGICAL UNIT NUMBERS 

FORTRAN input/output statements refer to logical unit numbers (1 to 63) whose 
meaning varies depending upon the operating system used. Refer to the appropriate 
manual. The operating system relates the logical unit number to a physical 
unit through system tables. Logical unit 4 always refers to a punch device, 
5 to an input device, and 6 to a list output device. 
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FORMATTED READ, WRITE 

A formatted READ statement is one of the forms: 

READ (u, f)k 
READ (u, *)k 
READ (u, f) 

Execution of this statement causes the input of the next ASCII records from 
unit u. The information is scanned and converted according to the FORMAT 
specification statement, f, and assigned to the elements of list k. If the 
input is free field, an asterisk is specified in the READ statement rather 
than the label of a FORMAT statement. If the list is absent, the FORMAT 
statement should contain editing specifications only. 

A formatted WRITE statement may have one of the following forms: 

WRITE (u, f)k 

or 
WRITE (u, f) 

This statement transfers ASCII information from locations given by names in 
the list k to output unit u. The values are converted and positioned as 
specified by the FORMAT statement f. If the list is absent, the FORMAT 
statement should contain editing specifications only. 



UNFORMATTED READ, WRITE 

An unformatted READ statement has one of the forms: 

READ (u)k 

or 
READ (u) 

This statement transfers the next binary input record from the unit u to the 
elements of list k. The sequence of values required by the list may not 
exceed the sequence of values from the record. If no list is specified, 
READ (u) skips the next record. 
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An unformatted WRITE statement has the form: 

WRITE (u)k 

Execution of this statement creates the next record on unit u from the 
sequence of values represented by the list k. 



AUXILIARY INPUT/OUTPUT STATEMENTS 

There are three types of auxiliary input/output statements: 

REWIND 

BACKSPACE 

ENDFILE 

A REWIND statement has the form: 

REWIND u 

This statement causes the unit u to be positioned at its initial point. If 
the unit is currently at this position, the statement acts as a CONTINUE. 

A BACKSPACE statement is as follows: 

BACKSPACE u 

BACKSPACE positions the unit u so that what had been the preceding record 
becomes the next record. If the unit is currently at its initial point, the 
statement acts as a CONTINUE. 

An ENDFILE statement is of the form: 

ENDFILE u 

Execution of this statement causes the recording of an end-of-file record 
on the output unit u. If given for an input unit, the statement acts as a 
CONTINUE. 
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SECTION IX 
COMPILER INPUT AND OUTPUT 

The FORTRAN Compiler accepts as input, paper tape containing a control 
statement and a source language program. The output produced by the Com- 
piler may include a punched paper tape containing the object program; a 
listing of the source language program with diagnostic messages, if any; 
and a listing of the object program in assembly level language. 



CONTROL STATEMENT 

The control statement must precede the first statement of the source program; 
it directs the compiler. 

FTN, p 1 , p 2 , p 3 

FTN is a free field control statement. Following the comma are one to three 
parameters, in any order, which define the output to be produced.^ The con- 
trol statement must be terminated by an end-of-statement mark, (CR) (LF). 
Spaces embedded in the statement are ignored. 

The parameters may be a combination of the following: 

B Binary output: A program is to be punched in relocatable 
binary format suitable for loading by the Relocating 
Loader. 

L List output: A listing of the source language program is to 
be produced as the source program is read in. 

A Assembly listing: A listing of the object program in assembly 
level language is to be produced in the last pass. 

T Symbol table only: A listing of the symbol table only is 

produced; in MTS, if both T and A are specified, only the last 
used will be decisive. 
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SOURCE PROGRAM 

The source program follows the control statement. Each statement is fol- 
lowed by the end-of-statement mark, (CrYlfj. Specifications statements 
must precede executable statements. The last statement in each program 
submitted for compilation must be an END statement. Up to five source 
programs may be compiled at one time. The last program must be followed 
by an END$ statement, if less than six programs are to be compiled. 

The control statement, each of the five programs, and the END$ terminator 
may be submitted on a single tape or on separate tapes. If more than five 
programs are contained on a tape, the compiler processes only the first 
five. The remaining programs must be compiled separately. 



BINARY OUTPUT 

The punch output produced by the compiler is a relocatable binary program. 
It does not include system subroutines introduced by the compiler, or 
library subroutines referred to in the program. 



LIST OUTPUT 

If the List Output parameter is specified, the first 72 characters of each 
line of the source program is printed on the List Output device. The END$ 
is the last statement printed. If exactly five programs are compiled, how- 
ever, the END$ is omitted from the list. 

If the Assembly listing parameter is specified, the program is printed in 
assembly level language on the List Output device. If the Symbol Table 
option is specified, the program listing is followed by a Symbol Table for 
the assembly level program. 
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The format for the assembly level listing is as follows : 

Columns Content 

1-5 Zero-relative location (octal) of the instruction 

6-7 Blank 

8-13 Object code word in octal 

14 Relocation or external symbol indicator 

15 Blank 

16-18 Mnemonic operation code 

19 Blank 

20-25 Operand address in octal or external symbol name. 

26-27 The indicator ",I" if indirect addressing is used. 

The Symbol Table listing has the following format: 

Columns Content 

1-5 Symbol, statement label, or numeric symbol assigned 

by the compiler. 

6 Blank 

7 Relocation indicator 

8 Blank 

9-14 The zero-relative value of the symbol 

The characters that designate an external symbol or type of relocation for 
the operand address or a symbol in the Symbol Table are: 



Character 


Relocation Base 


Blank 


Absolute 


R 


Program relocatable 


X 


External symbol 


C 


Common relocatable 



NOTE: The operating procedures for the FORTRAN Compiler 
are contained in the software operating procedures 
sio subsystems Module (5951-1390). 
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APPENDIX A 
HP CHARACTER SET 



ASCII CHARACTER FORMAT 



b 7 
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SOM 


DC, 
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1 


A 


Q 










1 





EOA 


DC2 
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U 
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1 


EOM 
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** 


3 


C 


s 


N 















EOT 


DC 4 
(STOP! 
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T 
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__S-- 

s 

_.G -- 

N 
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D -- 
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1 


WRU 


ERR 


% 


5 
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S 

1 

--G -~ 
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RU 


SYNC 


a 


6 


F 


V 







1 


1 


1 


BELL 


LEM 


(APOS) 


7 


G 


w 

















FEO 


So 


( 


8 


H 


X 














1 




S, 


) 


9 


I 


Y 


" 











1 





LF 


s 2 


* 




J 


z 











1 


1 


Vtab 


s 3 


+ 


: 


K 


I 


" 








1 








FF 


S4 


(COMMA 


< 


L 


\ 


ACK 








1 





1 


CR 


s 5 


- 


= 


M 


3 


© 








1 


1 





SO 


s 6 




> 


N 


t 


ESC 








1 


1 


1 


SI 


s 7 


/ 


p | 


*- 


DEL 



Standard 7-bit set code positional order and notation are shown below with b. 



the high-order and b the low-order, bit position. 

b 7 b 6 b 5 b 4 
Example : The code for "R" is: 1 1 

LEGEND 



NULL Null/Idle 

SOM Start of message 

EOA End of address 

EOM End of message 

EOT End of transmission 

WRU "Who are you?" 

RU "Are you. ..?" 

BELL Audible signal 

FEo Format effector 

HT Horizontal tabulation 

SK Skip (punched card) 

LF Line feed 

V Vertical tabulation 

TAB 



b b 
3 1 2 
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LEGEND (cont) 

FF Form feed 

CR Carriage return 

50 Shift out 

51 Shift in 

DCo Device control reserved for data link escape 

DC -DC Device Control 

DC (Stop) Device control (stop) 

ERR Error 

SYNC Synchronous idle 

LEM Logical end of media 

So-S Separator (information) 

t Word separator (space, normally non-printing) 

< Less than 

> Greater than 

t Up arrow (Exponentiation) 

■*- Left arrow (Implies/Replaced by) 

\ Reverse slant 

ACK Acknowledge 

® Unassigned control 

ESC Escape 

DEL Delete/Idle 
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APPENDIX B 
ASSEMBLY LANGUAGE SUBPROGRAMS 



A FORTRAN program can refer to a subprogram that has been prepared using 
Assembler source language. The subprogram may be treated as a subroutine 
or as a function. The object code programs generated by FORTRAN and by 
the Assembler are then linked together by the Relocating Loader when the 
programs are loaded. 



FORTRAN REFERENCE 

In the FORTRAN program, a subroutine is called using the following statement: 

CALL s (a, , a . . . . ,a ) 
12 n 

The symbolic name, s, identifies the subroutine and the a's are the actual 

arguments . 

If the subprogram is a function, it is referenced by using the name and the 
actual arguments in an arithmetic expression: 

f (a , a , . . . , a ) 

1 z n 

As a result of either the call or the reference, FORTRAN generates the 
following coding sequence: 

JSB s/f Transfers control to subroutine or function 

DEF*+n+l Defines return location 

DEF a Defines address of a 

DEF a Defines address of a 



DEF a Defines address of a 
n n 
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The words defining the addresses of the arguements may be direct or indirect 
depending on the actual arguments. For example, an integer constant as an 
actual argument would yield a direct reference; an integer variable might 
yield an indirect reference. 

If the subprogram being referenced is a subroutine, it may return none, one, 
or more than one value through its arguments or through common storage. If 
the subprogram is a function, it is assumed to return a single value in the 
accumulators: a function of type integer returns a value in the A- Register; 
a function of type real returns a value in the A- and B-Registers. 

The subprogram may transfer values directly by accessing the words in the 
calling sequence or it may make use of the FORTRAN library subroutine .ENTR 
to aid in the transfer. 



DIRECT TRANSFER OF VALUES 

Any suitable technique may be used to obtain or deliver values for the argu- 
ments and to return control to the calling program. If address arithmetic is 
used in conjunction with an argument (e.g., to process elements of an array), 
the base location must be a direct reference; the location given in the call- 
ing sequence must be checked to determine if it is a direct or indirect ref- 
erence. If it is an indirect reference the location to which it points must 
also be checked, and so forth. 
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Example : 
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The preceding example assumes that each argument is processed or partially 
processed before the next is obtained or delivered. Control returns to the 
calling program when all arguments have been picked up or delivered. 



TRANSFER VIA .ENTR 

The transfer of values to or from the locations listed in the calling sequence 
may be facilitated through use of the FORTRAN library subroutine .ENTR . This 
subroutine moves the addresses of the arguments into an area reserved within 
the Assembly language subroutine. The addresses stored in the reserved area 
are all direct references; .ENTR performs all the necessary direct/indirect 
testing, etc. It also sets the correct return address in the entry point 
location. 

The general form of the subroutine is: 

The subroutine name is s. 



.ENTR must be declared as external. 
Reserves n words of storage for the 
addresses of the arguments; this pseudo 
instruction must directly precede the entry 
point location, s. 

Defines first location of area used to 





NAM s 




ENT S 




EXT .ENTR 


a 


BSS n 


s 


NOP 



JSB -ENTR 
DEF a 



(First instruction) store argument addresses, 



JMP s, I 
END 
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Example : 
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APPENDIX C 
SAMPLE PROGRAM 



Using Simpson's rule, calculate the value of the integral: 



, cos x , 

J dx 

x 
a 



for the following possible values: 

Variable Range of Values 



a 


-6.99 to +6.99 


b 


-6.99 to +6.99 


Ax 


-.25 to +.25 



Simpson's rule for approximating a definite integral is: 



Ax 
/ f(x)dx = ^(f (a)+4f (a+Ax)+2f (a+2Ax)+4f (a+3Ax) + ... + f (b) 



The last term is reached when (a+kAx)=b, and when neither a 2 nor a 4 
appears in front of the first or last term. 
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( START J 



READ 
A, B, AX 



LAST TERM 
LIMITS 



INCREMENT DO: 
N = N + 1 




YES 



TERM = 

COS F (A + N*AX) 



A + N*AX 




SUM = SUM + 
C* TERM 




YES 



C =4. 



C = 4. 



SUM = SUM + 
TERML 



SUM = SUM' 



AX 



PRINT: 
SUM 



— */ END J 



C = 2. 



SAMPLE PROGRAM FLOWCHART 



c-2 



PROGRAMMER DATE PROGRAM 


C STATEMENT 
' 5 6 7 K 15 20 25 3C 35 4C 45 >0 


FTN 


,E 


i, 


L 


ROG 


RAM 




1 1 ! 


1 
1 














1 


1 I 


































P 


S 


MPSiN 
















































! 




READ 


(5,10 


) A,jB 


7 


D 


ELT 


X 






























|1C 




F 


ORM 


AT(2E 


8.2, IE 


7 




2)1 


III: 
































T 


ERiM 


L = COS 


(B)/B 




ill. 


































S 


UM= 


COS (A 


)I/|a! I 1 








! 




























K 


= 


( B 


-A)/D 


ELjTiX 






II 1 ' 






























C 


= 4. 








'■ ! 






1 




























I 


=!K + 


1 










H 




' 1 

1 
























D| 


6 


IN- 1 


IS 














, 




























F 


N=N 














































I 


F!(!N 


-K)20 


,2 


1 , 


7 


0^ 






























i 




2£ 




T 


ElRM 


=COlS!( 


A+ 


FIN 


* 


w 


LTX 


) 


/( A|+ 


fjn*!d 


E 


l!t 


X) 














i 








I 


F(T 


E|R 


M-T 


ER 


M 


L 


) 


w. 


> 


70 


1 


30 






1 














j j 








3(Z 




S 


U 


M= 


su 


M+C 


*T 


E 


R 


M 














! 




1 1 






















r 


F 


(jC 


-4 


. )5 


0, 


4 





i 


5 





















1 
















4JZ 


) 


c = 


2. 




























i 






















GO 


T 


60 








































52 


J 


C=l4 


, 






























j 


















6g 


) 


CO 


N 


T 


INUE 














































72 


J 


& 


U 


M 




SUM+T 


ER 


M 


L 


















































|8fZ 




S 


u 


M 


= 


(|S 


U:M* 


DEL 


T 


X 


w 


3 


, 






































i 








w 


R 


I 


T 


eRI 


6,19 


0) S 


u 


M 










1 


















j 1 












92 


) 


F 





R 


M 


AT ( " S 


UM 


= :" 


> 


E8 




2 


) 








































ST 





P 






j 
















































EN 


D 






I 
















r 


















] ! 




; 










e]n 


D$ 




















, 


























































! 










































! ! j 






















































I i : 










i 




J 


























































































































































1 






















































| 






















i 


I 




! 
























































] 






























! 




1 i 
















































j 










































































; 










































































1 ' ! 

































= ONE 
= TWO 



LINE TERMINATED BY RETURN / LINE FEED (R/LF) 
LINE IS DELETED BY RUBOUT BEFORE R/LF 
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OBJECT PROGRAM 
Input and Output Data 



1.23 4.72 .25 
SUM=-.63E+00 
STOP 

1.23 2.01 .10 
SUM=-.12E-01 
STOP 

0.3-4 1.01 .02 
SUM= .88E+00 
STOP 

0.00 1.00 .01 
SUM= .57E+36 
STOP 

1.00 1.25 .05 
SUM= .92E-01 
STOP 
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APPENDIX D 
FORTRAN ERROR MESSAGES 



Errors detected in the source program are indicated by a numeric code inserted 
before or after the statement in the List Output. 



The format is as follows: 

E-eeee: ssss + nnnn 



eeee 



ssss 



nnnn 



The error diagnostic code shown below. 

The statement label of the statement in which the error was 
detected. If unlabeled, 0000 is typed. 

Ordinal number of the erroneous statement following the .last 
labeled statement. (Comment statements are not included in 
this count. ) 



Error 
Code 

0001 



Description 
Statement label error: 

a) The label is in positions other than 1-5. 

b) A character in the label is not numeric. 

c) The label is not in the range 1-9999. 

d) The label is doubly defined. 

e) The label indicated is used in a GO TO, DO, or IF statement 

or in an I/O operation to name a FORMAT statement, but it does 
not appear in the label field for any statement in the program 
(printed after END) . 



0002 



Unrecognized Statement 

a) The statement being processed is not recognized as a valid 
statement. 

b) A specifications statement follows an executable statement. 
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Error 
Code 



Description 

c) The specification statements are not in the following 

order : 

DIMENSION 

COMMON 

EQUIVALENCE 

d) A statement function precedes a specification statement. 



0003 



Parenthesis error: There are an unequal number of left and 
right parentheses in a statement. 



0004 



Illegal character or format: 

a) A statement contains a character other than A through Z, 
through 9, or space =+-/(),.$". 

b) A statement does not have the proper format. 

c) A control statement is missing, misspelled, or does not 
have the proper format. 

d) An indexing parameter of a DO-loop is not an unsigned in- 
teger constant or simple integer variable or is specified 
as zero. 



0005 



Adjacent operators: An arithmetic expression contains adja-- 
cent arithmetic operators. 



0006 



Illegal subscript: A variable name is used both as a simple 
variable and a subscripted variable. 



0007 



Doubly defined variable: 

a) A variable name appears more than once in a COMMON state- 
ment. 

b) A variable name appears more than once in a DIMENSION 
statement. 

c) A variable name appears more than once as a dummy argu- 
ment in a statement function. 
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Error 

Code Description 

d) A program subroutine, or function name appears as a 
dummy parameter; in a specifications statement of the 
subroutine or function; or as a simple variable in a 
program or subroutine. 

0008 Invalid parameter list: 

a) The dummy parameter list for a subroutine or function ex- 
ceeds 63. 

b) Duplicate parameters appear in a statement function. 

0009 Invalid arithmetic expression: 

a) Missing operator 

b) Illegal replacement 

0010 Mixed mode expression: integer constants or variables appear 

in an arithmetic expression with real constants or variables. 

0011 Invalid subscript: 

a) Subscript is not an integer constant, integer variable, 
or legal subscript expression. 

b) There are more than two subscripts (i.e., more than two 
dimensions. ) 

c) Two subscripts appear for a variable which has been de- 
fined with one dimension only. 

0012 Invalid constant: 

15 15 

a) An integer constant is not in the range of -2 to 2 -1. 

38 

b) A real constant is not in the approximate range of 10 

^-38 
to 10 

c) A constant contains an illegal character. 
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Error 

Code Description 

0013 Invalid EQUIVALENCE statement: 

a) Two or more of the variables appearing in an EQUIVALENCE 
statement are also defined in the COMMON block. 

b) The variables contained in an EQUIVALENCE cause the 
origin of COMMON to be altered. 

c) Contradictory equivalence; or equivalence between two or 
more arrays conflicts with a previously established 
equivalence. 

0014 Table overflow: Too many variables and statement labels 

appear in the program. 

0015 Invalid DO loop: 

a) The terminal statement of a DO loop does not appear in 
the program or appears prior to the DO statement. 

b) The terminal statement of a nested DO loop is not within 
the range of the outer DO loop. 

c) DO loops are nested more than 10 deep. 

d) Last statement in a loop is a GO TO, arithmetic IF, 
RETURN, STOP, PAUSE, or DO. 

0016 Statement function name is doubly defined. 
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During execution of the object program, diagnostic messages may be printed on 
the output unit by the input/output system supplied for FORTRAN programs. 
When a halt occurs, the A-register contains a code which further defines the 
nature of the error: 



Message A-register Explanation 

*FMT 000001 FORMAT error; 

a) w or d field does not con- 
tain proper digits. 

b) No decimal point after w 
field. 

c) w - d < 4 for E specifica- 
tion. 



Action 

Irrecoverable error; 
program must be 
recompiled . 



*FMT 000002 a) FORMAT specifications are 

nested more than one level 
deep. 

b) A FORMAT statement contains 
more right parentheses than 
left parentheses. 



Irrecoverable error ; 
program must be 
recompiled. 



*FMT 000003 a) Illegal character in FORMAT 

statement. 

b) Format repetition factor of 
zero. 

c) FORMAT statement defines more 
character positions than pos- 
sible for device. 



Irrecoverable error; 
program must be 
recompiled. 



*FMT 



000004 Illegal character in fixed field 
input item or number not right- 
justified in field. 



Verify data. 



*FMT 



000005 A number has an illegal form 
(e.g., two Es, two decimal 
points, two signs, etc.). 



Verify data. 
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INDEX 



ASCII Character Format A-l 

Actual Arguments 6-1,6-2,6-4,6-7 

Alphabetic Characters 1-1 

Argument Characteristics. . .6-2,6-4,6-5 

Arithmetic Expressions 3-1, 3-2,6-2 

Arithmetic IF 5-2 

Arithmetic Operators 3-1 

Array Notation 2-7 

Arrays 2-5,2-6,2-7,4-1,6-2 

Array Structure 2-6 

Assignment Statement 3-5 

Assembly Language Subprograms B-l 

Auxiliary I/O Statements 8-3 

B 

BACKSPACE 8-3,8-4 

Basic External Functions 6-11 

Binary Output 9-2 

c 

Calling Program 6-1 

CALL Statement 6-4,6-5 

Character Set 1-1, A-l 

Characters, Alphabetic. 1-1 

Characters , Numeric 1-1 

Characters, Special 1-1 

Coding Form 1-3,1-4 

Comments 1-3 

COMMON 4-2,4-3,4-7,6-2 

Common Block 4-2-4-6,4-8 

Compiler Input and Output 9-1, ff 



Constants 2-2,2-3,2-7,3-1 

Constants , Integer 2-2 

Constants, Octal 2-3 

Constants, Real 2-3 

Continuation Line 1-2 

CONTINUE 5-9 

Control Statements. .1-3, 5- Iff. ,9-1,9-2 
Correspondence of Common Blocks. ... 4-3 

D 

Data Item Delimiters 1-2 

Data Quantities 2-1 

Data Type Properties 2-1 

Data Types 2-1 

Declarator , Array 4-1 

DIMENSION 4-1,4-2,6-2 

Direct Transfer of Values B-2 

DO- Implied Lists 7-2 

DO Loops 5-4-5-8,7-2,7-3 

DO Nests 5-6-5-8 

DO Statement 5-3 

Dummy Arguments 6-1,6-2,6-4,6-7 

E 

Elements of HP FORTRAN 2-1 

END FILE 8-3 

End Line 1-3 

END Statement 5-10,6-13,9-2 

END$ Statement 5-10,6-13,9-2 

EQUIVALENCE 4-6,4-7 

Expressions 2-7, 3-1, ff 

Expressions , Arithmetic 3-1 

Expressions , Integer 3-4 
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Expressions, Real 3-4 

Evaluating Expressions 3-2,3-3 

F 

Format Control 7-l,ff. ,8-1-8-3 

FORMAT Conversion 

Specifications 7-4,7-5 

FORMAT Editing 

Specifications 7-5,8-2 

FORMAT Statement 7-4,7-5 

Formatted READ/WRITE 8-2 

Formatted Records 8-1 

Free Field Input ix, 8-1 

Function Reference 6-7,6-11 

Functions 6-1,6-5,6-6,6-7 

6-11,6-12 

FUNCTION Statement 6-5 

G 

GO TO 5-1 

H 

Halt 5-9 , 5-10 

Halt, Temporary 5-9 

I 

IF Statement 5-2,5-3 

IF Statement, Arithmetic 5-2 

IF Statement, Logical 5-3 

Input Lis ts 7-1 

Input/Output Lists 7-1,7-3 

Input/Output Statements 8-1 , ff 

Integer Constants 2-2 

Integer Quantities 2-1,3-2 

L 

Labels, Statement 1-2,5-1 

Lines 1-2,1-3 

List Output 9-2 

Logical IF 5-3 

M 

Main Program 6-1,6-2 

Masking Operations 3-6 



N 

New and Changed Information iv 

Non- Executable Statements 4-1 

Numeric Characters 1-1 



Octal Constants 2-2 

Order of Evaluation 3-2 , 3-3 



P 

PAUSE. 
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Program Form 1-1 

Q 

Quantities, Integer 2-1, 3-2 

Quantities, Real 2-1 



READ, Formatted 8-2 

READ, Unformatted 8-2 

Real Quantities 2-1 

RETURN Statement 6-13 

REWIND 8-3 

s 

Simple Variable 2-4 

Source Program 9-2 

Source Program Listing C-4 

Spaces 1-1 

Special Characters 1-1 

Specifications Statements. . . 4-1, ff ,9-2 

Statement, Assignment 3-5 

Statement Function 6-9 

Statement Function Reference 6-10 

Statement Labels 1-2,5-1 

Statement Type 3-5 

Statements 1-2,2-8,4- l,ff, 5-1, ff 

STOP 5-10 

Subprograms 6-1, 6-3, 6-5, 6-6, B-l 

Subroutine Call 6-4, 6-5, B-l 

Subroutines 6-3, ff, B-l 

Subscripted Variable 2-4,2-5 

Symbol Table Listing 9-3, C-9 
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T 

Terminators 1-2,1-3 

Transfer of Values, Direct B-2 

Transfer Via .ENTR B-4 

Types of Data 2-1 

u 

Unconditional GO TO 5-1 

Unformatted READ/WRITE 8-2,8-3 

Unit Assignment 8-1 

Unit-Reference 8-1 



V 

Variables 2-4,2-5,2-7,3-1,4-6,6-2 

Variable, Simple ■ 2-4,6-2 

Variable , Subscripted. - 2-4 , 2-5 

w 

WRITE, Formatted 8-2 

WRITE, Unformatted 8-2,8-3 
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Tel (4181 688-8710 
TWX 610-571-5525 

FOR CANADIAN AREAS NOT LISTED: 

Contact Hewlett-Packard (Canada) 
Lid in Mississauga 



CENTRAL AND SOUTH AMERICA 



ARGENTINA 

Hewlett-Packard Argentina 

S.AC.e.l 

Lavalle 1171-3' Piso 

Buenos Aires 

Tel. 35-0436, 35-0627, 35-0341 
Telex Public Booth No. 9 
Cable HEWPACK ARG 

BOLIVIA 

Stambuk & Mark (Bolivia) Ltda. 

Av Manscal, Santa Cruz 1342 

La Paz 

Tel 40626, 53163. 52421 

Telex 3560014 

Cable: BUKMAR 

BRAZIL 

Hewlett-Packard Do Brasii 

I. EC. Ltda 

Rua Frei Caneca. 1 140/52 Bela Vista 

01307-SaoPaulo-SP 

Tel: 288-71-11, 287-81-20, 

287-61-93 
Telex 39I-H2-3602 HPBR-BR 
Cable HEWPACK Sao Paulo 



Hewlett-Packard Oo Brasii 
I.E C Ltda 

Praca Dom Feliciano 78-8' 
andar (Sala 806/8) 
90000-Pbrto Alegre-RS 
Tel 25-84-70-DDD (0512) 
Cable: HEWPACK Porto Alegre 

Hewletl-Packard Do Brasii 
I EC Ltda 

Rua Siqueira Campos. 53. 4 C 
andar-Copacabana 
20000-Rlo da Janelro-GB 
Tel 257-80-94-DDD(021) 
Telex 391-212-1905 HEWP-BR 
Cable HEWPACK 
Rio de Janeiro 

CHILE 

Calcagm y Metcalfe Ltda 

Alameda 580-0f 807 

Casilla 21 18 

Santiago t 

Tel 398613 

Telex 350001 CALMET 

Cable CALMET Santiago 



Medical Only 

General Machinery Co.. Ltda 

Paraguay 494 

Casilla 13910 

Santiago 

Tel 31123. 31124 

Cable GEMCO Santiago 

COLOMBIA 

Instrumentacidn 

Hennk A Langebaex 4 Kief S.A 

Carrera 7 No 48-75 

Apartado AeVeo 6287 

Bogota, I D F 

Tel 69 88-77 

Cable AARIS Bogota 

Telex: 044-400 

COSTA RICA 

Cientifica Costarncense S A 

Calle Central, Avemdas 1 y 3 

Apartado 10159 

San Jose 

Tel 21-86-13 

Cable GALGUR San Jose 



ECUADOR 

Medical Only 

A F Viscalno Compafiia Ltda 

Av Rio Amazonas No 239 

P Box 2925 

Quito 

Tel 527-088,527-804 

Cable ASTOR Quito 

Calculators Only 

Computadoras y Equipos 

Electrdnicos 

P0 Box 2695 

Avda 12 Oe Octubre No. 2207 

Quito 

Tel 233869, 236783 

Telex 02-21 13 Sagita Ed 

Cable Sagitra-Quito 

EL SALVADOR 

IPESA 

Bulevar de los Heroes M-48 

San Salvador 

Tel 252787 

GUATEMALA 

IPESA 

Avemda La Reforma 3-48, 

Zona 9 

Guatemala Ctty 

Tel 63627, 64786 
Telex 4192 Telelro Gu 



MEXICO 

Hewlett-Packard Mexicana. 

S A de C V 

Torres Adalid No 21 IT Piso 

Col del Vaile 

Mexico 12. D F 

Tel (905) 543-42-32 

Telex 017 74-507 

Hewlett-Packard Mexicana, 

S.A deC V 

Ave Constitucibn No 2184 

Monterrey. N L 

Tel 48-71-32, 48-71-84 

Telex 038-843 

NICARAGUA 

Roberto Teran G 
Apartado Postal 689 
Edificio Terdn 
Managua 

Tel 25114. 23412.23454 
Cable ROTERAN Managua 

PANAMA 

Electrdmco Balboa S A 
P Box 4929 
Calle Samuel Lewis 
Cuidad de Panama 

Tel 64-2700 

Telex 3431103 Curunda. 

Canal Zone 
Cable ELECTRON Panama 



PARAGUAY 

Z J Melamed S R L 
Divisidn Aparatos y Equipo;; 

Medicos 
Division Aparatos y Equipos 

Cientllicos y de investigaaon 
P O Box 676 
Crnie-482. Edificio Victoria 
Asuncion 
Tel 4-5069 4-6272 
Cable RAMEL 

PERU 

Compafiia Electro Medica S A 

Los Flamencos 145 

San Isidro Casilla 1030 

Lima 1 

Tel 413485 

Cable ELMED Lima 

PUERTO RICO 

Hewlett-Packard Inter-Americas 

Puerto Rico Branch Office 

P Box 2908I 

65th Inf Station 

San Juan 00929 

Calle 272, Urb Couniry CluD 

Carolina 00639 

Tel (809) 762-7355 7455 7(555 

Telex 3450514 



URUGUAY 

Pablo FerranOo S A 

Comercial e industrial 

Avemda Italia 2877 

Casilla de Correo 370 

Montevideo 

Tel 40-3102 

Cable RADIUM Montevideo 

VENEZUELA 

Hewletl-Packard de Venezuela 

C A 

Apartado 50933 Caracas 105 

Edificio Segre 

Tercera Transversal 

Los Ruices Norte 

Caracas 107 

Tel 35-01-07 35-00-84. 

3500-65. 35-00-31 
Telex 25146 HEWPACK 
Cable HEWPACK Caracas 



FOR AREAS NOT LISTED. CONTACT: 

Hewletl-Packard 
Inter Americas 
3200 Hi II view Ave 
Palo Alto California 94304 
Tel (4151 493 1501 
TWX 910-373 1260 
Cable HEWPACK Palo Alio 
Telex 034 8300 034-8493 



EUROPE 



AUSTRIA 

Hewlett-Packard Ges m b H 

Handeiska 5? 3 

P Box 7 

A- 120li Vienna 

Tel 102221 35 16 21 to 32 

Cable HEWPAK Vienna 

Tele* 75923 hewpak a 

BELGIUM 

Hewlett-Packard Benelux 

S.A/N.V 

Avenue de Col-Vert. I 

fGroe-ikraaglaan) 

B- 11 70 Brussels 

Tel (02) 672 22 40 

Cable PALOBEN Brussels 

Telex 23 494 paloben bru 

DENMARK 

Hewlett-Packard AS 
Datavei 52 
OK-3460 Birkerpd 



Telex 166 40 hpas 
Hewlett-Packard AS 
Navervei i 

DK-8600 Silkeborg 
Tel (06> 82 71 66 
Telex 166 40 hpas 
Cable HEWPACK AS 

FINLAND 

Hewlett- Packard OY 

Nahkahousunlie 5 

P.O Box 6 

SF-00211 Helsinki 21 

Tel 6923031 

Cable HEWPACKOY Helsinki 

Telex 12-1563 

FRANCE 

Hewlett- Packard France 
Quartter de Courlaboeut 
Boite Postale No 6 
F-9T401 Orsay 
Tel (11 907 78 25 
Cable HEWPACK Orsay 
Telex 600046 
Hewlett-Packard France 
Le Saquin 
Chemm des Mouiiles 
Boite Postale No 12 
F-69130 Ecully 
Tel (78) 33 81 25. 
Cable HEWPACK Eculy 
Telex 310617 
Hewlen-Pacxard France 
Agence Regionale 
Pericentre de la CepiSre 
Chemn de la Cfipie'e. 20 
F -3 1300 Toulouse-Le Mirail 
Tel. (6i) 40 11 12 
Telex 510957F 



Hewlett-Packard France 
Agence Regionale 
Aeroport principal de 
Marseille-Mangnane 
F- '3721Marignane 
Tel (91)89 12 36 
Cable HEWPACK MARGN 
Telex 410774F 
Hewlett-Packard France 
Agence Regionale 
63 Avenue de Rochester 
F-35000 Rennes 
Tel (991 36 33 2i 
Cable HEWPACK 74912 
Teiex 7409I2F 
Hewlett-Packard France 
Agence Regionale 
74 Aiiee de la Robertsau 
F-67000 Strasbourg 
Tel 1881 35 23 20 21 
Telex 890141 
Cable HEWPACK STRBG 
Medical Calculator Only 
Hewlett-Packard Ffance 
Agence Regionale 
Centre Vauban 
20! rue Colbert 
Entree A2 
F-59000 Lille 
Te 1 (20) 51 44 14 
Teiex 820744 

GERMAN FEDERAL REPUBLIC 

Hewlett-Packard GmbH 

VertnebSientrale Frankfurt 

Bernerstrasse 1 17 

Posttach 560 140 

D-6000 Frankfurt 56 

Tel |0611i 50 04-1 

Cable HEWPACKSA Franktun 

Teiex 04 13249 hpFFmd 

Hewlett-Packard GmbH 

Technisches Buero BOblmgen 

Herrenbergerstrasse 130 

D 7030 Bobllngen Wurttemberg 

Te' (070311 66*1 

Cable HEPAK BOblmgen 

Teiex 07265739 bbn 

Hewlett-Packard GmbH 

Technisches Buero Dusseldort 

Emanuel-Leutie-Str 1 (Seestern) 

D-4000 Dusseldort 

Tel (0211| 59711 

Telex 8586 533 hpdd d 

Hewlett-Packard GmbH 

Technisches Buero Hamburg 

Wendenstrasse 23 

D-2000 Hamburg - 

Tel (040I 24 13 93 

Cable HEWPACKSA Hamburg 

Telex 21 63 032 hphh d 



Hewlett-Packard GmbH 

Techmscnes Buero Hannover 

Mel lend orter Strasse 3 

D 3000 Hannover-Kleefeld 

Tei (051li 55 60 46 

Telex 092 3259 

Hewlett Packard GmbH 

Techmscnes Buero Nuremberg 

Neumeyer Str 90 

D 8500 Nuremberg 

Tel 10911} 56 30 8385 

teiex 0623 860 

Hewlett-Packard GmbH 

Technisches Buero Muncnen 

Untertiachmger Strasse 28 

ISAR Cente- 

D-80t2 Ottobrunn 

Tei (089) 601 30 61 7 

Telex 52 49 85 

Cable HEWPACKSA Munchen 

Tele* 0524985 

(West Berlin) 

Hewlett-Packard GmpH 

Techmscnes Buero Berlin 

Keith St-abse 2-i 

D 1000 Berlin 30 

Tel I030i 24 90 86 

Teiex 18 3405 hpbln d 

GREECE 

Kostas Karayanms 
18 Ermou Streel 
GR Athens 126 
Tel 3237731 
Cable RAKAR Arnens 
Telex 21 59 62 'Kar gr 
Analytical Only 
INTECO G Papathanassiou & Co 
Martm 17 
GR ■ Athens 103 
Tel 521 915 
Cable INTEKNIKA 
Telex 21 5329 INTE GR 
Medical Omy 
Technomed Hellas Ltd 
52 Skouta Street 
GR ■ Athens 135 
Tel 626 972 663 930 614 959 
Cable ETALAK Athens 
Telex 21-4693 ETAL GR 

ICELAND 

Medical Only 

Elding Trading Company Inc 

Hatnarhovoh - TryggvatOtu 

IS Reykjavik 

Tel 1 58 20 

Cable ELDING Reykjavik 



IRAN 

Hewlett Packard Iran Ltd 
Mir-Emad Avenue 
14th Street No 19 
1R Tehran 

Tei 85 10 82 86 

IRELAND 

Hewlett Packard Ltd 
King Street Lane 
Wmnersh Wokingham 
GB Berkshire RG1! 5AR 
Tel 10734) 78 47 74 
Telex 847178848179 

ITALY 

Hewlett-Packard Italiana S p A 

Casella postale 3645 

i 20124 Milarto 

tei (2) 6251 (10 linesi 

Cable HEWPACKIT Milano 

Telex 32046 

Hewlett-Packard Italiana S p A 

Via Pietro Maroncelli 40 

■ dig Via Visentin) 

t - 35 1 00 Padova 

Tel (49) 66 48 88 

Telex 32046 via Milano 

Medical only 

Hewlett-Packard itahana S p A 

Via d Aghiardi 7 

i-56l00Pisa 

Tei (050) 2 32 04 

Telex 32046 via Milano 

Hewlett-Packard S p A 

Via G Armellmi 10 

1-00143 Roma-Eur 

Tei <06i 54 69 61 

Teiex 61514 

Cable HEWPACKIT Roma 

Hewlett-Packard Itahana S p A 

Via San Quintino 46 

i-10121 Turino 

Tel 53 82 64 54 84 68 

Telex 32046 via Mnano 

Medical Calculators Only 

Hewlett-Packard Hahana S p A 

Via Pnncipe Nicola 43 GrC 

l -95126 Catania 

Tel (095i 37 05 05 

Hewlett- Packard Itahana S p A 

Via Amerigo Vespucci 9 

I 80142 Napoli 

Tel [81. 33 77 11 

Hewlett-Packard Italiana S p A 

Via t Mas: 9B 

1-40137 Bologna 

Tel 1 051 



ologna 
30 78 87 



LUXEMBURG 

Hewlett Packard Benelux 
S A N V 

Avenue du Col-Vert. 1 
(Groenkraaglaanj 
B 1170 Brussels 
Tel .02! 672 22 40 
Cable PALOBEN Brussels 
Telex 23 494 

NETHERLANDS 

Hewlett-Packard Benelux N V 

Van Heuven Goedharilaan 121 

P O Box 667 

NL- Amstelveen 1134 

Tei (0201 47 20 21 

Cable PALOBEN Amsterdam 

Telex 13 2i6 hepa nl 

NORWAY 

Hewiett-Packaro Norge AS 

Nesveien 13 

Box 149 

N 1344 Haslum 

Tel i02i 53 83 60 

Teiex '6621 npnas n 

POLAND 

BlURO INFOHMACJI TECHNlCZNEJ 

Hewlett Packard 

U1 Stawki 2 6P 

00 95QWarsaw 

Tel 39 67 43 

Telex 81 24 53 hepa pi 

PORTUGAL 

Telectra-cmpresa Teemca de 
Equipamentos Eiectncos Sari 
ftua Rodngo da c onseca 103 
P Box 253' 
P Lisbon i 
Tel ri9) 68 60 ;■? 
Cable TF.LE0TRA Lisbon 
Telex '2598 



S a r ; 

Av A A de Aguiar 138 

P Box 2761 

P Lisbon 

Tel H9] 53 21 31 7 

Cable INTERCAMBI0 Lisbon 

RUMANIA 

Hewlett-Packard 'echncai Ottice 

BD N Balcesci 16 

Bucharest 

Tel 1580 23 ':!8885 

Telex 10440 

SPAIN 

Hewiert-Pacxard Fspanoia S A 
Jerez No 3 
E Madrid 16 

Tel ill 458 26 00 1 10 "inesi 
Telex 23515 npe 



Hewlett Packard Fspanoia. S A 

Milanesado 21-23 

E Barcelona 17 

Tei (31 203 6200 i5 lines) 

Telex 52603 hpbe e 

Hewlett Packard Espanola. S A 

Av Ramdn y Cajal 1 9 

lEditicio Sevilia I! 

t Seville 5 

Tel 64 44 54 58 

Hewlett-Packard espanola S A 

Edifioo Albia H 7 8 

f Bilbao 

Tel 23 83 06 23 82 06 

Calculators Only 

Hewlett-Packard Espanola S A 

Gran Via Fernando El Catohco. 67 

t Valencia 8 

Tei 326 67 28 326 85 55 

SWEDEN 

Hewlett-Packard Svenge AB 

Emqhetsvagen .j 

Fack 

S 16' 20 Bromma 20 

Tel (OS) 730 05 50 

Cabie MEASUREMENTS 

Stockholm 
Telex 10721 

Hewlett-Packard Svenge AB 
Frotailsgatan 30 
S -421 32 Vastra Frolunda 
Tel 10311 49 09 50 
Telex 10721 Via Bromma Ottice 

SWITZERLAND 

Hewlett-Packard (Scnwem AG 

Zurcherstrasse 20 

P Box 307 

CH-8952 Schlieren Zurich 

Tei i0li 98 18 21 

Cable HPAG CH 

Teiex 53933 hpag ch 

Hewlett-Packard (Schweu) AG 

9 Chemm LOuis-Pictet 

CH-1214 Vernier -Geneva 

Tel (0221 41 49 50 

Cable HEWPACKAG Geneva 

Telex 27 333 hpag ch 

TURKEY 

Telekom Engineering Bureau 

P Bo* 437 

BevgTu 

TR Istanbul 

Tel 49 40 40 

Cable 1ELEMATI0N Istanbul 



UNITED KINGDOM 

Hewlett-Packard Ltd 

King Streel Lane 

GB Wlnnerah. Wokingham 

Berks RG11 5AR 

Tel (0734) 78 47 74 

Cable Hewpie London 

Telex 8471 78 9 

Hewiett-Packaid Ltd 

The Grattons 
Stamtofd New Road 
GB Altrlncham 
Cheshire WA14 IDJ 
Tel (061) 928 9021 
Cable Hewpie Manchester 
Telex 668068 

Hewlett-Packard Ltd 

Lygon Court 

Oudley Road 

GB Halesowen Worcs 

Tel (021) 550 7053 

Teiex (021) 550 72/3 

Hewlett Packard Ltd 

4th Floor 

Wedge House 

799 London Ftoad 

GB Thornton Heath CR4 6XL 

Surrey 

Tei (0D 684 0103/0105 

Teiex 946825 

Hewlett Packard Ltd 

c o Makro 

South Service Wholesale Centre 

Wea' industrial Estate 

Washington 

GB New Town County Durham 

Tei Washington 464001 ext 57 58 

Hewlett Packard Ltd s registered 

address tor V A T purposes 

only 

70 Fmsbury Pavement 

GBLondon EC2A1SX 

Registered No 690597 

USSR 

Hewlett Packard Representative 

Ottice USSR 

Pokrovsky Boulevard 4 17. Suite 12 

MoecowiOlOOO 

Tei 294 2024 

Telex 7825 hewpak SU 

YUGOSLAVIA 

5M.-i staiuia'il Hewlett Packard 

Ottice 
Miklosiceva 38 VII 
610O0 L|ubl|ana 
Tel 315-879321-674 
Telex 31583 YU HEWPAK 



AFRICA, ASIA, AUSTRALIA 



AMERICAN SAMOA 

Calculators Only 

Oceanic Systems inc 

P.O Box 777 

Pago Pago Baytront Road 

Pago Pago 96799 

Tei 633-5513 

Cable OCEANIC-Pago Pago 

ANGOLA 

Telectra 

Empresa Teemca de 

Equipamentos 

Eiectncos. S A R L 
R Baroosa Rodngues 42-fDT 
Caixa Postal 6487 
Luanda 
Tel 35515*6 
Cable TELECTRA Luanda 

AUSTRALIA 

Hewlett-Packard Australia 

Ply Ltd 
31-41 Joseph Streel 
Blackburn. Victoria 3130 
P O Box 36 

Doncaster East. Victoria 3109 
Tel 89-6351 
Telex 31-024 

Cable HEWPARD Melbourne 
Hewlett-Packard Australia 

Pty Ltd 
31 Bridge Street 
PymWe 

New South Wales 2073 
Tel 449-6566 
Telex 21561 

Cable HEWPARD Sydney 
Hewlett-Packard Australia 

Pty Ltd 
153 Greenhill Road 
ParksWe. 5063 S A 
Tel 27-2591 
Tele* 82536 ADEL 
Cable HEWPARO ADELAIDE 
Hewlett-Packard Australia 

Pty Ltd 
141 Stirling Highway 
Nedlands. W A 6009 
Tel 86-5455 
Telex 93859 PERTH 
Cable HEWPARD PERTH 
Hewlett-Packard Australia 

Pty Ltd 
121 Wollongong Street 
Fyshwick. ACT 2609 
Tel 95-3733 
Telex 62650 Canberra 
Cable HEWPARD CANBERRA 
Hewlett Packard Australia 

Pty Ltd 
5th Floor 

Teachers Union Building 
495-499 Boundary Street 
Spring Hill 4000 Queensland 
Tel: 29-1544 
Telex 42133 BRISBANE 

CYPRUS 

Kypronics 

19 Gregonos & Xenopoulos Rd 

PO Box 1152 

CY- Nicosia 

Tel 45628 29 

Cable KVPROMCS PANDEHIS 



GUAM 

Medical Pocket Calculators Only 

Guam Medical Suply Inc 

Jay Ease Building Room 210 

PO Box 8383 

Tamuning 9691 1 

Tel 646-4513 

Cable FARMED Guam 

HONG KONG 

Schmidt & Co (Hong Kong) Ltd 

P Box 297 

Connalight Centre 

39th Floor 

Connaught Road Central 

Hong Kong 

Tel H-255291-5 

Telex 74766 SCHMC HX 

Cable SCHMIDTC0 Hong Kong 

INDIA 

Blue Star Ltd 

Kastun Buildings 

Jamshed|i Tata Rd 

Bombay 400 020 

Tel 29 50 2 1 

Telex 2156 

Cable 8LUEFR0S1 

Blue Star Ltd 

Sahas 

414 2 Vir Savarkar Marg 

Prabhadevi 

Bombay 400 025 

Tel 45 78 87 

Telex 4093 

Cable FROSTBLUE 

Blue Star Ltd 

Band Box House 

Prabhadevi 

Bombay 400 025 

Tel 45 73 01 

Telex 3751 

Cable BLUESTAR 

Blue Star Ltd 

14.40 Civil Lines 

Kanpur 208 00 1 

Tel 6 88 82 

Telex 292 

Cable BLUESTAR 

Blue Star Ltd 

7 Hare Street 



P 



• Kb 



Calcutta 700 001 

Tel 23-013! 

Telex 7655 

Cable BLUESTAR 

Blue Star Ltd 

Blue Star House 

34 Mahatma Gandhi Rd 

Laipalnagar 

New Delhi 110 024 

Tel 62 32 76 

Telex 2463 

Cable BLUESTAR 

Blue Star Ltd 

Blue Star House 

1 1 1 1 a. Maqaiath fioaa 

Bangalore 560 025 

Tel 55668 

Telex 430 

Cable BLUESTAR 



Blue Star Ltd 

Meeakshi Mandiran 

xxx.1678 Mahatma Gandhi Rd 

Cochin 682 016 Kerala 

Tel 32069 3216! 32282 

Telex 046-514 

Cable BLUESTAR 

Blue Star Ltd 

1-1-117 1 

Saroimi Devi Road 

Secunderabad 500 003 

Tel 70126 70127 

Cable BLUEFROST 

Telex 459 

Blue Star Ltd 

23 24 Second Line Beach 

Madras 600 001 

Tel 23954 

Telex 379 

Cable BLUESTAR 

Blue Star Ltd 

Nathrai Mansions 

2nd Floor Bistupur 

Jamahedpur 831 001 

Tel 7383 

Cable BLUESTAR 

Telex 240 

INDONESIA 

BERCA Indonesia P T 

P Box 496 

1st Floor JL Cikmi Raya 6' 

Jakarta 

Tel 56038. 40369 49886 

Telex 42895 

Cable BERCACON 

BERCA Indonesia P T 

63 JL Raya Gubeng 

Surabaya 

Tel 44309 

IRAN 

Hewieti-Packaro Iran Ltd 
Mir-Emad Ave 
I4th Street No (9 
IR-Tehran 
Tel 851082 86 
Telex 21 25 74 

ISRAEL 

Electronics & Engineering Oiv 

ol Motorola Israel Ltd 
16 Kremenetski Street 
F Box 25016 
Tel-Aviv 
Tel 38973 
Telex 33569 
Cable BASTEL Tel-Aviv 

JAPAN 

Yokogawa Hewlett-Packard Ltd 

Ohashi Building 

1-59-1 Yoyogi 

Shibuya-ku Tokyo 

Tel 03-370-2281 92 

Telex 232-2024YHP 

Cable VHPMARKET TOK 23-724 

Yokogawa-Hewiett-Packaid Ltd 

Nissei Ibaraki Building 

2 8 Kasuga 2-chrome Ibaraki-shi 

Osaka 567 

Tei (0726i 23-1641 

Telex 5332 385 VHP OSAKA 



Yokogawa-Hewlett-Packard Ltd 

Nakamo Building 

24 Kami Sasaiima-cho 

Nakamura-ku Nagoya 450 

Tel (052) 571-6171 

Yokogawa-Hewlett-Packard Ltd 

Tan yawo Building 

2-24-1 Tsuruya-cJioo 

Kanagawa-ku 

Yokohama 221 

Tel 045312 1252 

telex 382 3204 YHP YOK 

Yokogawa-Hewlett-Packard Ltd 

Mno Mitsui Building 

105 1-chrome San-no-maru 

Mito Ibaragi 310 

Tei 0292-25-7470 

Yokogawa-Hewlett-Packard Ltd 

Inoue Building 

1348-3 Asatu-cho 1-chome 

Atsugi Kanagawa 243 

Tei 0462-24-0452 

KENYA 

Technical Engineering 

ServicesiF A iLtd 
P Box 18311 
Nairobi 

Tel 557726 556762 

Cable PROTON 

Medical Only 

international AeradioiE A iLtd 

P Box 1901? 

Nairobi Airport 

Nairobi 

Tel 336055 56 

Telex 22201 22301 

Cable INTAERID Nairobi 

KOREA 

American Trading Company 

Korea 
C PO Box 1103 
Dae Kyung Bidg . 8th Floor 
107 Seiong-Ro 
Chongro-Ku Seoul 
Tel (4 lines) 73-8924-7 
Telex K-28338 
Cable AMTRAC0 Seoul 

LEBANON 

Constants, E Macndis 

Clemenceau Street 34 

P O Box 7213 

RL Beirut 

Tel 36 63 97 8 

Telex 21114 Leb 

Cable ELECTRONUCLEAR Beirut 

MALAYSIA 

Teknik Mutu Sdn 8hd 
2 Lorong 13 6A 
Section 1 3 
Petaimg jaya Selangor 

Tel 773455(5 lines) 

MOZAMBIQUE 

A n Goncalves Lta 
16? 1 Apt 14 Av D LuiS 
Caixa Postal 107 
Lourenco Marques 

Tel 27091 27114 
Telex 6-203 Negon Mo 
Cable NEGON 



NEW ZEALAND 

Hewlett Packard iN Z i Ltd 
4 12 Cruickshank Street 
Kilbirme Wellington 3 
Mailing Address Hewlett-Packard 

iN I i Ltd 
P O Box 9443 
Courtney Place 
Wellington 
Tel 877-199 
Telex HZ 3839 
Cable HEWPACK Wellington 
Hewlett Packard (N I i Ltd 
y ax-.,'dnga Professional Centre 
267 Paku'anqa Highway 
Be. 51092 
Pakuranga 
Tei 569-651 
Tele. NZ 3839 
CaDie HEWPACK Auckland 
Analytical Medicai Only 
Medical Supplies N Z Ltd 
Scientific Division 
7 9 Canton Gore Rd Newmarket 
P O Box 1234 
Auckland 
Tel 75-289 
>i!f.< ? ( I58 MEDlSUP 
Cable DENTAL Auckland 
Analytical Medica> Only 
Medicai Supplies N I Ltd 
P O Bo* 1994 
147 161 To<"y St 
Wellington 
Tei 650-799 
Telex 3858 

Cable DENTAL Wellington 
Analytical Medical Only 
Medicai Supplies N I Ltd 
P Box 309 
239 Stanmo'e Road 
Christchurch 
Tei 892 019 

Cabie DFNTAi Chnstchurch 
Analytical Medicai Only 
Medicai Supplies N Z Ltd 
303 Great King Street 
P Box 233 
Dunedin 
Tel 88-B17 
Cable DENTAL. Dunedin 

NIGERIA 

Jti^ Electronics 

instrumentations Ltd 
N6B 770 Oyo Road 
Oluseun House 
P M B 5402 
Ibadan 
Tei 615" 

Telex 3'231 TEIL Nigeria 
Cable THETFil madan 



Tip; ; 



erromes inst'umenta 
s ;td 



144 Agege Motor Road Muslim 

P Box 6645 

Lagos 

Cable THETfiL Lagos 



PAKISTAN 

Mushxo & Company. Ltd 

Oosman Chambers 

Abdullah Haroon Road 

Karachi 3 

Tel 511027 512927 

Teiex KR894 

Cable COOPERAT0R Karachi 

Mushko & Company Ltd 

38B Satellite Town 

Rawalpindi 

Tel 41924 

Cable FEMUS Rawalpindi 

PHILIPPINES 

The Online Advanced Systems 

Corporation 
6th Floor Yuiuico Building 
560 Gumtin Paredes Street 
Bmondo Manila 
Tei 40-05-4! 40-05-31 
Telex 3327 GFNBANK 

RHODESIA 

-leid -ecinica: Sales 

45 Kelvin Road North 

P O Box J458 

Salisbury 

Tei 705231 [5 Imesi 



U-.P, 



;(H ■: 



SINGAPORE 

Hewlett-Packard Smgapdre 

(Pte i Ltd 
Blk 2, 6th Floor Jalan 

Bukit Merah 
Redhiii industrial Estate 
Alexandra P Box 58 
Singapore 3 
Tel 633022 
Telex HPSG RS 21486 
Cable HEWPACK Singapore 

SOUTH AFRICA 

Hewlett-Packard South Atnca 



,.fv . 



: 'a 



Private Bag Weodywood 
Sandton Transvaal 2144 
Hewlett-Packard House 
Daphne Street. Wendywood 
Sandton Transvaal 2144 
Tel 802-104016 
Teiex SA43-4782JH 
Cable HEWPACK JOHANNESBURG 
Hewlett Packard South Atnca 



TAIWAN 

Hewlett-Packard Far East Ltd 

Taiwan Branch 

39 Chung Smao West Road 

Sec 1 "th Floor 

Taipei 

V .WfbG i 2 3 

telex .M824 HEWPACK 

Cable HEWPACK TAIPEI 

Hewlett Packard Taiwan 

38 Po Ai Lane San Mm Chu 

Kaon slung 

Tel (07) 24?318 

Analytical ,1nly 

San Kwang Instruments Co , Ltd . 

No 20 yung Sui Road 

Taipei 130 

Tel 3713171-4 

Telex 22894 SANKWANG 

Cable SANKWANG TAIPEI 

TANZANIA 

Medical Only 

International Aeradio (E A ]. Ltd 

P O Box 361 

Daressalaam 

Tel 21251 Ext 265 



"t'lex 



S'OJO 



:Pty 



lM 



P0 

Howard Place Cape Province. 

7450 
Pine Park Center forest Drive. 
Pinelands Cape Province 7405 
Tel 53-7955 thu 9 
Telex 570006 
Hewlett-Packard South Atnca 



FN 



l!;1 



* 37099 
Overport Djfban 4067 
64) Ridge Road Durban 
Durban 4001 

Tel 88-7478 88-1080 88 2520 
Telex 6 7954 
Cable HEWPACK 



THAILAND 

UNIMESA Co Ltd 
Elcom Research Building 
Bangiak Sjkumvit Ave 
Bangkok 

lei 932367 930338 
Cable UN'MESA Bangkok 

UGANDA 

Medicai Oily 

international AeradiO(E A 1. Ltd . 

P O Box 2577 

Kampala 

Tel 54388 

Cable INTAERIO Kampala 

ZAMBIA 

R J Tilbury (Zambia) Ltd 

P Bo* 2792 

Lusaka 

Tel 73:93 

Cable arjaytee Lusaka 

MEDITERRANEAN AND 

MIDDLE EAST COUNTRIES 

NOT SHOWN PLEASE CONTACT: 

Hewlett Packard S A 

Mediterranean and Middle 

East Operations 

35 Kolokofoni Street 

Piatia Ketaiianou 

GR-Kitissia-Athens 

Teiex 21-6588 

Cable HEWPACKSA Athens 

OTHER AREAS NOT LISTED, CONTACT: 

Hewlett Packard Intercontinental 

3200 Hiliview Ave 

Palo Alto Calitornia 94304 

Tei ^4151 493 1501 

r WX 910-37J 1767 

Cable HFWPACK Palo Alto 

Telex 034 8300. 034 8493 
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